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Durante o mSs de mar^o, o setor de 
Informdrica esteve "chocado". As 
profundas alteragoes da politica mo- 
netclria decretadas pelo presidents deixaram 
OS empresArios coma que anestesiados, e 
quase nenhum negdcio se fez. Muitos fabri- 
cantes "pararam". Outros honestamente 
admitiam: "estamos com produgao normal. 
nao sabemos 4 se estamos venderxio". As 
revendas rea/mente prefen'ram nSo fechar 
muita coisa. Os compradores tamb4m ini- 
bidos ficaram em compasso de espera. 

Ora, no meio da con fusao reinan te, 
com a setor ainda tipo "barata-tonta". eis 
que desembarca em nosso pais um autSnti- 
CO ET. O conhecido empresArio norte- 
americano Adam Osborne, criador de por- 
tdtets peso-pluma, veio ao BrasU para uma 
palestra sabre TendSncias da Microinfor- 
mitica. E, alheio a "aflifao" da indiistria, 
ele — que jA conheceu o gosto do fracasso — 
listou algumas regras para se atcanpar su- 
cesso. 

Osborne acredita que a polftica de resar- 
va de mercado praticada no Brasil — dada a 
extensSo dos segmentos que abrange — nao 
dari certo. Segundo ele, exists uma tendSn- 
cia de comprar-se componentes e pe^as de 
todas as partes do mundo. para se chegar a 
um prego mats acessi'vel, e antes do final 
de 86. ser4 possi'vel comprar um PC-like 
(512 Kb e dois drives de 5 1/4") por US$ 
500, e um XT- like (512 Kb e Winchester de 
10 Mb) por USS 1000. Nos USA, 4 claro. 
Este processo ir4, inclusive, determinar a 
perda de fatias de mercado da IBM, pais 

consumidor preferir4 comprar clones 
estrangeiros mais baratos (ele espera com 
ansiedade o lan^amento, daqui h4 3 meses, 
do PC da Amstrad, empresa inglesa que vem 
ganhando mercado por seus produtos 
de boa qualidade e b lixo custo). 

Assim, seu conselho foi de que nossa in- 
dOstria se especializasse no que faxemos me- 
thor (sintomaticamente, ele nSo disss o 
que!) e importasse, por exempio, drives, mo- 
nitores e teclados, "qua apresentam pre^os 
desastrosos". 

E arrematou com a pergunta: em que a 
na^ao perde mais: importando disk-drives 
ou vendendo 30 mil micros (PCs) por ano, 
quartdo existe potencial para 500 mil ou 

1 mi/ftSo? PolSmico o rapaz. Ele sd nao 
previu que, ao atingir a escafa de 500 mil, 
nossa indOstria talvez alcan^asse prepo para 
fabricar os drives. Ten'amos, contudo, chan- 
ces de voltar a comer do bolo? De qualquer 
maneira, deixo com vocSs alguns pensamen- 
tos deste ET da mkroinform4tica brasileira: 

• HARDWARE "NaOa i mais signifiativo que a 
lendSncia a padronizBcao. Maquinai nio compativeis 
com o IBM-PC iSo reiegadas B mercados secundirioi" 

• COMPATIBILIOADE "£ como grevidtz: existe 
ou nSo. NSo M meio lanno". 

• APPLE: "O Apple If esti monendo. O Lisa foi 
um defastre; o Macintoih um ttmidosaitrv". 

• AMfGA e ATARI ST: "Nvnhum wm etionce 
da (UC0CKI. Venderio um pouco e irfo 
detapancer, poii ettSo competindo com o IBM-PC". 
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sorteado deste m6%. que recebarA uma assina- 
tura anual da revtsta MICRO SISTEMAS, 6 
Francisco Fukumoto, de Sao Paulo ■ SP. 
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Sou usu^rio de um micro TK-2000 e pre- 
lendo trocd - lo por um compat I'vel com a 
MSX. Ji foram pubitcadas muitas informacoes 
em MrCRO SISTEMAS a respeiio dessa linha, 
mas mesmo assim ainda tenho algumasdtJivtdas- 

a) Os cartuchos do Hotbil eniram no Expert a 
vice-versa?; 

b) Qjando v5b chegar aqui na Bahia o Expert 
eo Hotbit?; 

c) O teclado do Expert 6 mecanico ou por 
indU9$o magn^tica 7 E o do Hotbit ?; 

Jorge Pablo Zapata Rivera 
Salvador - BA 

Prezado Jorge, enviamos suas duvidas aos 
dais fabricantes. Entretanto, at6 o momento. 
s6 recebemos a resposta da Gradiente. 

"Caro Jorge P. Z. Rivera, referente as suas 
perguntas, esctarecemos os seguintes pontos: 

a) Os cartuchos do Expert sSo 100% compati'- 
veis com o Hotbit; 

b) Na Bahia, voc^ poder4 encontrar o Expert 
nas seguintes lojas; Crezosom — Rua Santo 
Agostinho, 60; Decorasom — Av. Antonio 
Cartas Magalhies, quadra 4 e Mesbia ~ Av. 
Antdnio Carlos Magalhies; 

c) O teclado do Expert 4 mecanico e. atrav4s 
de um projeto bem elaborado, nos di a precisao 
e durabilidade necess^rias as exigSncias do pa- 
drSo Gradiente; 
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No nOmero 50 de MICRO SISTEMAS, li 
um artigo que muito me interessou: "Arquivo 
de telas". Gostarta de fazer apenas duas pergun- 
tas ao autor daquele artigo: Como poderia 
apagar por completo o programs anteriormente 
arquivado, ja que ale diz que o arquivo nfo ^ 
afetado por CLEAR ou NEW? O botao de 
RESET faria isso? A outra pergunta 6 a seguin- 
te: Fi2 um pequeno programa para desenhar 
na tela do micro que uso (um CP 500). Como 
eu poderia, ao invtis de arquivar o desenho (o 
programa tambAm ftca arquivado, tsSof), salvd- 
lo num disquete e. por exempio, usa-lo na 
apresentagSo de um jogo qualquer ? Assim, 
quando esse jogo fosse soltcttado, apareceria 
o desenho feito com o programa do desenho e 
depots o jogo, normalmente. 

Lufs Eduardo de Rosa Silva 
Campo Grande — MS 

Lufs Eduardo, sua carta foi remetida ao 
autor do artigo citado, Luiz Ferraz Netto, 
que enviou-nos a seguinte resposta; 

"Antes da resposta, porim fazendo parte 
dela, uma corre^ao de concetto na pergunta. 
CLEAR ou NEW nio apagam nada. Em tunica 
de computa^So nada 4 apagado (seu programa 
BASIC nao 6 apagado por NEW; as variiveis 



nao sao zeradaspelo CLEAR); em computapSo, 
perde-se o endere^ol O NEW apenas zera os 
dois primeiros bytes na Area do programa (que 
6 um enderepo, um LINK}. Logo, o programa 
BASIC, apds um NEW, pode ser facHmente 
recuperado, listado e novamente posto pronto 
para rodar. O CLEAR apenas muda os pointers 
dos ini'cios das dreas das variaveis (altera endere- 
gos apontadores) . Assim, os valores das variA- 
veis tamb^m podem ser recuperados apds 
um CLEAR, 4 sd saber trabalhar nessa Area de 
memdria. Enfim, nada 6 perdido. . . a menos 
que o operador queira. 

E agora a resposta. . . basta deixar que os 
enderegos perdido s continuem perdido si Se 
vocS apertar RESE T e nao reservar memdria al- 
guma (por ocasiao da inicializafio), os pointers 
do stack do sistema e dos valores das vartdveis 
strings se incumbem de deixar o assunto ante- 
riormente arquivado desprotegido. As primeiras 
digitaqdes e execupdes de um novo programa 
irao paulatinamente substituindo as informa- 
pdes que anteriormente estavam protegidas. . . 
tudo vai se perdendo aos poucos. . . irremedia- 
velmente. 

Agora, a outra resposta. Como voc4 preten- 
de associar o desenho arquivado com outros 
programas, em disco, a tAcnica de arquivamento 
deve ser outra. Os bytes das telas arquivadas 
devem estar na area do programa e perterwen- 
tes, portanto, as linhas Idgicas. Os bytes podem 
estar armazenados em constantes strings, li- 
nhas REM. linhas de DATAS, etc. Recomendo 
para completo entendimento desses arquiva- 
memos que vocS leia os artigos publicados pela 
Saber Eletronica, numeros 157 e 758, tambAm 
de minha autoria. LA sSo esmiupadas as t4cni- 
cas de hibridapSo de BASIC com linguagem 
de maquina. Uma vez armazenados os bytes 
da tela nos modos indicados nesses artigos, 
dai para a frente, A s6 usar os comandos do 
TRS-DOS ou DOS-500 para seu CP 500 para 
dar um MERGE entre o programa da memdria 
(linhas de valores baixos) com o programa do 
disco (linhas de valores altos)." 



Luiz Ferraz Netto 
SSo Paulo - SP 
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£ com grande satisfagao que escrevo a esta 
maravilhosa revJsta. Leio MS desde setembro/ 
83 e afirmo que esta nunca me desapontou, 
publicando programas e artigos da melhor qua- 
Ijdade e autoria. Sugiro que a se^l'o Hardware 
passe a publicar esquemas de interfaces e outros 
dispositivos, pois esse tipo de literatura tdcnica 
i um pouco raro de se encontrar. 
Francixo Fukumoto 
Sao Paulo - SP 



Venho parabenizj-los pelo apoio que esta 
revista tern dado aos usudrios da linha Sinclair 
e pelos programas para o TK90X. 

Aproveitando a oportunidade pedirei a 
voces que. se fosse possfvel, publ icassem o 
Mapa da ROM do TK90X ou suas principals 
rotinas. 

Aquilino Novaes Rodrigues 
Frutal -MG 



Envie sua corresporKlencia para: ATI - Anilise, 
Teleprocessamento e Inform&tica Editora Ltda., 
Av. Presidenle Wilson, 16B/gr. 1210, Centra, 
Rio de Janeiro/ RJ, CEP 20030, Sa^So Cartas/ 
Redac:ao MICRO SISTEMAS. 
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Conhe<;a as tecnicas basicas de organiza^ao de dados e coloque 
em ordem a sua agenda telefonica, orgamento ou saldo bancario. 



Organize seus arquivos 



Jose Rafael Sommerfefd. 



Muitas vezes nos sentamos a 
frente do microcompulador 
e come^amos a fazer urn pro- 
grama para controle de or^a- 
mento dom^stico, agenda lelefonica, sal- 
do bancario, etc. Nesse memento, nor- 
malmente nos preocupamos em cons- 
truir um programa eficiente, utilizando 
de forma adequada as instrugSes e colo- 
cando, sempre que possivel, aquela ro- 
tina fantistica que ate nos da grande or- 
gulho em mostramios aos amigos. 

No entanto, ^ comum observar que. 
se por um lado exisle a preocupa^So em 
elaborar um bom programa, por oulro, 
]i n3o acontece o mesmo com os dados 
manipulados por ele. 

objetivo desie ariigo i justamente 
tratar deste assunto: a organizagSo dos 
dados nos programas. 

Como tema pode ser muito diverso 
- dependendo do usuario. de seu equi- 
pamento e dos perif^ricos que possua -. 
direcionaremos o artigo ao usuario mais 
comum de micros pessoais, ou seja, 
aquele que (como eu) tern no cantinho 
da estanie um computador pessoa] (nSo 
importa o tipo). ligado a um televisor e 
a um gravador, e que se utiliza da lingua- 
gem BASIC para consiruir seus progra- 
mas. 

Primeiramente, e imporianle enten- 
der o que sao dados. Toda e qualquer in- 
forma^ao tratada no programa sera um 



10 DIM A(lg) 

20 FOR.i-l.TO 10 

30 PRINT '"EKTRE COM VALOR "lX. 

40 INPUT 3_ 

50 LET A(X) "B 

60 NEXT X 



Fixes 

MUTANT ES 
ARQUIVOS 



Figura I - A cria^do de um arquivo com 10 
vaiores 

dado. Podemos dividi-Ios basicamente 
em tres tipos: Fixes, Mutantes e Arqui- 
vos. 

Fixos - Sao aqueles que declaramos 
seu valor durante a const rugao do pro- 
grama. Servirao como fatores de opera- 
gSes aritmeticas, como controladores de 
procedimentos do programa. como ilus- 
tra^Oes na tela, etc. No exempio apre- 
seniado na figura 1 , os dados fixos sao: 
1 , 1 e Ent re com o valor. 

Mutantes - Sao as variaveis utiliza- 
das no programa para assumirem mais 
de um valor ao longo do mesmo, porem 
sem carrier de guardar em si um igual 
valor permanenlemente. No exempio da 
figura 1, OS dados variaveis sao: X e B. 

Arquivos - Sao as variaveis utilizadas 
no programa para guardar uma informa- 



9§o de forma mais permanente. Os ar- 
quivos se constituem de mais de um ele- 
menlo, apresentando-se normalmente 
como uma matriz ou vetor (serSo expli- 
cados adiante). Ainda no exempio da 
figura 1 , o arquivo seria a variavel A. 

A partir de agora. n3o falaremos mais 
sobre os dados Fixos e Mutantes. Vale 
apenas uma recomendagSo: durante o 
desenvolvimento de um programa, cada 
vez que se for utilizar um novo dado 
Mutante, deve-se anotar o nome da va- 
riavel que se utUizou para isso e o que 
ela representa. Essa pequena lista que ira 
se formando pode ajudar a saber quais 
dados estao em que lugar e quais varia- 
veis ja foram utilizadas no programa. 

Falemos agora sobre arquivos. Eles 
sao, em si'ntese, um conjunto de regis- 
tros. Os registros por sua vez, sao con- 
juntos de informagOes que se referem a 
um mesmo item ou elemento. Cada uma 
dessas informa^Oes dos registros sSo 
OS campos. Vejamos um exempio. Va- 
mos supor que queremos fazer uma 
agenda telefonica simples, que contenha 
apenas o Nome e Telefone da pessoa. 
Teremos entSo dois campos: Nome e Te- 
lefone. Esses dois campos juntos forma- 
r3o um registro e o conjunto desses re- 
^stros formar^ a agenda, ou seja, o ar- 
quivo. 

Os arquivos sao normalmente grava- 
dos em uma memoria auxiliar (disco. 



fita, etc.) para uma futura utUizagSo 
(uma consulta posterior a agenda etc.). 
Em equipamentos que possuem disco se 
torna mais facU a cria^ao e utUiza^ao de 
arquivos, pois neles os registros podem 
ser acessados um a um, de forma bastan- 
te rdpida. No entanto, ao se utilizar fi- 
tas (que nSo possuem a mesma velocida- 
de dos discos), o tempo gasto em se en- 
contrar um registro torna sua utilizafSo 
quase inviivel. A solufSo seria uma so; 
simular o arquivo todo na memoria, 
com todos OS regjslros juntos, de uma 
so vez. 

Vejamos, entSo, como organizar um 
arquivo na memoria. 

DEFININDO O REGISTRO 

O primeiro passo e defmir o registro, 
ou seja, quais campos ira conter e quais 
OS tamanhos e tipos (numericos ou alfa- 
numericos) de cada campo. 

Para definir os campos, deve-se reu- 
nir todas as infoimagOes que atendam 
aos objetivos do programa. Voltemos ao 
exempio da agenda telefonica, desta vez 
ampliando um pouco mais sua utUiza- 
930. Desejamos, entSo, que o programa 
permita fazer a inclusSo e exclusao de 
um elemento da agenda; a pesquisa de 
um elemento at raves de seu nome e a 
obtengSo das seguintes in formaijOes, 
apos a pesquisa: Niimero do prefixo do 
DDD, Niimero do telefone, Niimero do 
ramal e que tipo de telefone e, ou seja, 
residencial, do trabaLho, a favor, para 
recados etc. 

Pois bem, nosso registro teria ent3o 
cinco campos, que sao: Nome. Prefixo, 
Telefone. Ramal e Tipo. 

Agora, vamos defmir os tamanhos e 
tipos de cada campo. Para esta tarefa, 
deve-se avaliar a informagSo de uma for- 
ma profunda, observando todas as im- 
plicagOes possi'veis nesta defmigao. 
campo Prefixo, por exempio. Poderia- 
mos defini-lo como numerico, pois ape- 
nas numeros se apresentarao em seu 
conteiido. No entanto, todos os c6digos 
de DDD nacionais se iniciam com zero e 
se o definirmos como numerico, ao fa- 
zer uma impressSo do numero 021, va- 
hos computadores o far3o apenas 21 . 

Alem desta an^ise, e importante 
tamb^m que em determinados campos 
se obtenha uma Media ou Medida Maxi- 
ma em seu tamanho. 

M^dia - Seria aplicada ao campo 
Nome. Em uma agenda telefonica co- 
mum e possivel encontrar nomes com 
ate 40 ou 50 posi^Ses, mas pode ha- 
ver casos em que o nome ocupe apenas 
duas letrinhas. Por exempio, eu (acon- 
tece toda vez que mudo de telefone). 
Assim. deve-se estipular um tamanho 
medio julgado conveniente. O que nSo 
couber dos nomes grandes. deve ser 
abreviado ou simplesmente eliminado. 
Outro fato a considerar 6 que este cam- 
po servira tambem como chave de pes- 



quisa. Logo, o seu conteiido deve ser 
simples o bastante para nSo causar con- 
fusOes ao informar ao equipamento qual 
nome que se deseja pesquisar. Assim, 
para uma agenda simples, um bom tama- 
nho para o campo Nome seria 20 posi- 
90es. 

Medida Maxima - Se aplica aos cam- 
pos Prefixo. Telefone e Ramal. Estes 
campos nSo podem ser abreviados nem 
t3o pouco eliminados, pois a falta da 
informa^ao nSo permitiri que objeti- 
vo seja atingido. Desse modo, podemos 
deixar estes campos com os seguintes 
tamanhos: Prefixo = 4, Telefone = 7, 
Ramal = 4. Apesar de serem numericos, 
a melhor forma de armazenamento para 
estes campos e utilizar variaveis alfanu- 
mericas, por causa dos motivos j^ expli- 
cados (a supress3o do zero a esquerda). 

Outro caso que deve ser sempre estu- 
dado e a possibilidade de substituigSo de 



CAMPO 


TIPO 


TAMANHO 


NOME 


ALFANUM^RICO 


20 


PREFIXO 


ALFANUMfiRICO 


4 


TELEFONE 


ALFANUMfiRICO 


7 


RAMAL 


ALFANUM^RICO 


4 


TIPO 


NUMERICO 


1 


HARCA 


ALFANUMfiRICO 


1 




TOTAL 


... 37 



Figura 2 - DefimgSo dos campos de registro 

um campo que ocupe um grande tama- 
nho por um outro, de tamanho menor, 
tendo um conteiido simbohco. Vejamos 
um exempio. campo Tipo poderia ter 
10 posifdes alfanimiericas. Seu conteii- 
do seria uma das expressCes: Residencia, 
Tiabalho, Favor ou Recados. Observem, 
no entanto, que as expressOes utilizadas 
se repetirSo diversas vezes, com igual 
conteiido em vSrios registros. Nesta si- 
tua^ao, pode-se utilizar em substitui^ao 
a descrigao por extenso apenas um codi- 
go de um di'gito, que representaria a si- 
tuagao daqueie campo. Exempio: 1 = Re- 
sidencia, 2 = Trabalho, 3 = Favor e 4 
= Recados - 

Ate agora ]i definimos todos os cam- 
pos de informa^ao do registro. Criare- 
mos agora um outro campo que terd 



como fun^ao controlar a existencia ou 
nao dos registros. Vejamos porque. Os 
registros possuirSo um codigo de aces- 
so. Esse codigo nao estara gravado no re- 
gistro, pois ele e apenas a posi^ao fisica 
do registro no arquivo, Ao incluir um re- 
gistro, deve-se informar ao equipamento 
qual codigo, ou seja, a posii^ao fi'sica 
que aquele registro ocupara. 

Observem que, fisicamente, todos os 
registros ji existem, pois arquivo deve 
ser dimensionado na memdria, no ini'cio 
da sua utiliza^ao. Assim, se for dado o 
codigo 1 2 a determinado registro, o pro- 
grama deve coloca-lo no registro ffsico 
numero 12 e marcar esse registro como 
ocupado. Essa marca permitirS, numa 
proxima inclusao, que se verifique se o 
registro ja estd ocUpado, bloqueando as- 
sim a inclusao de outra informagao so- 
bre uma ja existente. Da mesma forma 
essa marca serviri para a exclusao. Se a 
marca representar um registro ocupado 
eniao ele podera ser exclui'do. caso con- 
trario essa exclusSo n3o tera sentido. 
Daremos entao nome de Marca a este 
novo campo. Se seu valor for igual a um 
significa que registro fisico esti ocu- 
pado. Caso contririo, representa que ele 
esta livre. 

Finalmente, o registro estS criado. 
Observe na figura 2 sua definigao. Vale 
lembrar que, em determinados equipa- 
mentos, um digito numerico quando 
esta armazenado em uma variavel nume- 
rica ocupa mais espago do que quando 
armazenado em uma variavel alfanume- 
rica. 

Uma vez definido o registro deve-se 
ent3o dimensionar o arquivo, ou seja, 
quantos registros irao compor aquele ar- 
quivo. Por trabalhar inteiramente na 
memoria, o arquivo nSo deve ser muito 
grande, pois espaijo ocupado pelo pro- 
grama deve respeitar a mem6ria dispo- 
nivel. Em nosso exempio, dimensionar 
o arquivo com 100 registros seria um 
numero adequado para caber em qual- 
quer equipamento de pelo menos 16 
Kb. 

FORM AS DE GRGANIZAi^AO 

Passaremos agora a organizar esse ar- 
quivo dentro do programa. Existem v^- 



Figura 3 - As 










formas de 
acesso aos 




ORGANIZAgSo 


MATRIZ 


UM VETOR 


vArios VETORES 


campos 


CAMPOS 




NONE 


A$(X,1) 


AS(X)C1 TO 20) 


A$(X} 


- 




PREFIXO 


AS(X,2) 


AS(X)(21 TO 24) 


a$(x) 






TELEFONE 


AS(X,3) 


AS(X)(2S TO 31) 


cs(x) 






RAMAL 


AS(X,4) 


AS(X){32 TO 35) 


DS(X) 






TIPO 


AS(X,5) 


AS(X)(36) 


ES(X) 






MARCA 


AS(X,6) 


AS(X)(37) 


F$(X) 






X = codigo do 


registro 






OBS.: Exemplos aplicados na linha SINCLAIR 
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ORGANIZE SEUS ARQUIVOS 



rias tormas para isto. Citaremos tres 
delas: utilizando uma tnatriz, utilizan- 
do um vetor e utilizando varies veto- 
res. 

As fontias de acesso aos campos, em 
cada m^todo, est3o apresentadas na fi- 
gura 3. 

Utilizando uma matriz - Esta for- 
ma de organiza^ao e do ponto de vis- 
ta ]ogico a mais simples. No entanto po* 
derd se tomar, de acordo com os dados, 
a forma que desperdi^ara maior drea de 
mem6ria. Vejamos porque. Ao dimen- 
sionar uma matriz. informa-se o nome 
da variavel, o niimero de Hnhas (que se- 
riam os registros) e o niimero de colunas 
(que seriam os campos). Em alguns equi- 
pamentos (Sinclair), informa-se ainda o 
numero de d I'gitos dos campos. Um 
exemplo aplicado ^ linha Sinclair: DIM 
A$(!00.6,20). Com isto. o computador 
iii reservar na mem6ria um espa^o de 
100 registros com seis campos de 20 po- 
si^Oes, pois nSo se pode defmir um ni- 
vel da matriz de forma variavel. 

Este tipo de organiza^ao e mais in- 
dicado nos cases em que todos os cam- 
pos tenham o mesmo tamanho, 

Utilizando um vetor - Vetores sSo 
variiveis que permitem abrigar os dados 
em linhas. Ao contr^rio das matrizes 
que utilizam mais de um I'ndice, o vetor 
s6 usa um linico indice, Ao dimensionar 
um vetor deve-se informar o numero de 



elementos (registros) que ele conterd. 
Na linha Sinclair informa-se tambem o 
numero de digitos de cada elemento. 
Exemplo aplicado na linha Sinclair: DIM 
A$(I00,37). Com isto, o computador 
reservara espaijo para 100 linhas (regis- 
tros) com 37 posi95es(que € o tamanho 
de cada regjstro). Esle tipo de organiza- 
930 e mais indicado para o caso de equi- 
pamentos que possuem grava^So de va- 
riaveis separadamente do programa (ZX 
Spectrum) e onde seja necessario gravar 
todo o arquivo de uma so vez. A desvan- 
tagem consiste em n3o poder se referen- 
ciar direlamente a um campo, sem ter 
que extrai'-lo do registro, que aumenta 
o numero de instru^Oes utilizadas no 
programa. 

Utilizando varies vetores - Esta tal- 
vez seja a forma mais pr^tica de se or- 
ganizar um arquivo simulado na memo- 
ria, pois nela, ao contr^rio das demais, 
as infomia?5es dos registros se distri- 
buem entre virios vetores. Cada vetor 
tratara de um campo de todos os regis- 
tros, ou seja, no exemplo agenda, tere- 
mos um vetor para nomes, outro para 
prefixes, etc. Os campos de determina- 
do registro ter3o a mesma posi?3o fi'si- 
ca dentro dos vetores. dessa maneira, de- 
terminado Telefone do vetor de telefo- 
nes corresponderd ao Nome do vetor de 
nomes de mesma posiQ^o. Ao dimensio- 



nar OS vetores, deve-se informar em cada 
um numero de registros que o arquivo 
possui. Se o equipamento for da linha 
Sinclair, e necessario ainda citar o tama- 
nho dos campos para cada vetor. Exem- 
plo: DIM ASdOO, 20), DIM BS(I00,4). 
DIM C$(100,7). DIM DS(100.4).DIM 
E$(100) e DIM FS(IOO). Este tipo de 
organizai;3o se torna interessanie para 
equipamentos que possuem instru96es 
de grava^ao em cassete registro a regis- 
tro, como e o caso da linha TRS-80 ou 
para o caso dos equipamentos da linha 
ZX8I, onde todas as varidveis sao gra- 
vadas juntamente com o programa. 

Ate agora foi apresenlado como criar 
um arquivo e algumas formas de organi- 
za95o que ele pode ter na memoria. 

Em um proximo arligo, mostraremos 
a apUca^ao da teoria aqui apresentada 
atraves de um programa para controle 
de agenda telefonica, devidamenle co- 
mentado. 

Vale a pena esperar. . . 
At^ la. 



Jos^ Rafael Sommerfe/d trabatha hA mais de 
cinco anos com programagSo de microcom- 
putadores e 4 autor do livro AplicapSes Pes- 
soais para o TK85, que se encontra atualmen- 
te em fase de produgio grifica. 



COISA DE MACRO 
OS MICROS DA COMPUTERVWVRE! 



Para quern pensa grande, a Computerware 
tern sempre os melhores precos do 
mercado, com estoques suticienles para 
uma enlrega imediata e condicOes de 
pagamento a sua escolha. 
AI6m de descontos especiais. a 
Computerware oferece assjstgncia t^cnica 
com proiissionais altamente especializados, 
melhor alendimenlo, contralo de 
manuiencao e uma inlimdade de vantagens, 
que tazem a nossa macro diterenpa. 
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^^- .J' -_/ PCPAQ. 

^rooomputadorCompacloM^^^^^^^^ 
compativel com 'BM PC XI ^uuas ^^ , ^^ 

%lf al6m de 2 slots adicionais para 

Sqoiser.protegidoporumabolsa 
aimotadada. - Consulle-nos 
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k ASSISTENCIATECNICA • 
(021)262-1886 

T6cnicos especializados ria fabrica 

• Atendimento imediato 
• Contratos de manutengao 




UNITRONApll 

Compulador pessoal 
Mtcroprocessador 
6502, 48Kde 
memOriaRAM e 12K 
de mem6ria ROM. 
leclado com 
maiusculas e 
minusculas, Sconectores 
para expansOes- 
UNITRDNT.I. 

Aiem de reunir as caraclerislicas do APII, 
possui Teclado Inieligenie Uniiron, que, 
direlamente, como em maquinas de 
escrever, lornece maiusculas / minusculas 
e acentuacao da lingua poriuguesa. 
Apresenla a caracierisiica especial de 
permitir a programagao de cada lecla com 
comandos ou lungOes defmidos pelo 
usu^rio. 

Na Computerware, enconiram-se tambem a 
disposigSo, todas as interfases / placas e 
penffiricosdo Unitron. . Consulle-nos. 



iTiii^NOSSO SHOW-ROOM 

RuadoCalete.311 



Informatica 
Ltda. 



Rio-Av. AlmiranteBarroso, 91 - 11.° andar ■ Tel.: {021) 240-7294 
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Sao Pauio - Rua Jesuino Arruda, 797/Grupo 22 ■ Tel.; (01 1) 881-7446 
Curitiba - Av. Jo5o Gualberto. 1375 - 1." andar - Tel.; |041) 253-5433 




O SOFTWARE PARA O SEU MICRO 



F = pode s«r gjwwio em Its K7 

J = uso obngsldflo de joystlch 
48 = requer 48 K de RAM 
64 = reguer &4K de RAM 

JOGOS - APPLE II 

- CiS 80,00 - 

5«batst«iri miaisMn-iiuMau 

BlKklKii in - joco de 21 <crai 
DwMn (F) - |o|o de MfflB 
mra FI - leiiiiiwnmm neokdu 
Rolwtwi (f) - «ttu (H nbi) nrn^ 
FUcwrnr. jogowoPiw™ 
Nl^MituoAfn ,agodtp(«9« 
Fin GimnwL iF) - |0{a de gamki 
OUwHe^Ft lOgo de tabmefD 
LedcAunnH see'JtWVHUTO 
Dirmpic [>Kitln^ 10(01 ofrmpcos 
SpKt AeMn iF. utrKcefflOQta 

GorlKil^' cjoi .»! Busses 
TW Ellmiuiof iF: :an(»it es^acdl 
WIBlCwrlcF prfrertsMMnlooMi 
S«Ke lUi ■'^>' -i^ inos e»>CM 
hilDtohd '. ^^lOaHufrtis 
The AmnM Field .'R iiwastHMn 
HMHuMkIi pefgos r.s cdnsrutta 
Clwiiftei ii'Ji ti^Mmmcmm 
SMihifMi !>i>Ke a si£(Tunna 
Spy^ Oemiie |F1 lOgo H igerte koK) 
SOi BluK - comcMe Mno 
Vlp«r|F).MnwAscoM 
Cfim CnMBW ' penevt m CDOTi 
M«n Pitnt fTMAnilia knr 
MiPecMinfr anwmraOidgPaclilVi 
M«M Bm 1^ Mido contra gorU 
BuchReiM piiaawinMttn 'loom'' 
PnM n . MTtum KK cfMrr« penUB 
C«m MMmtaNi - tnen ce niiaai 
B«^CtitlelinileMH> mateHittt 
Wk ■ OK.'re j ffi. jiTij fla Drtniioe anecs 

itti\vl TOr<13'.!''0ftiW(O(m3D 

Super Ehini conitiaaassrBiai 
»i(«i ^miwj'uf'.i'i Bli>W»*naOe 
OuiPM1:n «»-.MlBH»(*)espSCal 
[Mendei |F;j) oetedBongmii 
Dot FIfM l|F) - COnAMQ de |M09 
Stv Trak - iwnadi ns esniu 
Wl»fli)i ■ !)itot« um Btnumo 
SMtnDuckitril dueiodeMMincm 
'emp)« Hjahil s^^Us'^ttmolo 
FHgnt Simultni 1^ ■ smutadH de tim 
One on On iJi c«(wiecant2jag94iyM 
Sane CAinte ' [iDL«e pn siiM na r>Oa 

-CiS 170.00 

KMteU penttiiamuuciiii»knif**vlt«lnoi*M(' 
»><» ( ttene 1 princeu 00 Majnc Conn- locttie e dev 
tiua W!a^'ran»fHn«caniiMrMnabillcute 
Gho«Uutni!' mxtt irdefTvrKtdecapioelanasrtf 
• tof^ece ilia jt^rtjrt 

SwnwGvnefie'j eniOdMdadesconWtttdClllMQrx 
:om n rnjis enwKrarM groat otnHKM de vfrto 
Swnmef (iwiwl n |(4) ' ? IWU IDDOklUet OlimtKH 

Wintn a«ne( i64) 7 pfiMiiDtaK de nemo 

SPVnSn.owiiaiflodcespiioconraespiiabKeada 

nos pe(«mtra diRvaa UM) 

Dnfi laWtoll M pwMtunioai"' tanettMK GftficM fv 

wscafiorttMi 

SufMlU UMijogcdEUdru 

SKt liM li^l - ant simiMdx de ite con inhen stia(oe( 

» comtuK «fn rfreu nlvM GrttcM K(atic«das 

f-15Slrtiiii< h|i>Hl- wiwH«Mat*iifleurr natee|« 

^tS £B|lfli com oonMv eni i4rcii fi^Aft GriAcot coTTfieios 

KM CoMNCtOt Sit U) - noiM sas DnJenas meus De 



rfwa ptnjffi da urrj ft Drh<H 

Wwi iSd I - ^rataHsiogo oe esrmga icoaiM- com v> 

ma(iaiK|d<ic<a 

U.M pnWunfrawniitlodxwrunara 

Uas^c'the SurviienuiiiMca-NoUbJnDoceoetcK'w 

KiHoms pertdCHdemeMi|icwto(lo 

K*M Spr ' etvMte new mer dt evMragefn lendd 9 <)»- 

iiriSM ccmo cenke 

Ovli Cryttil ' Mmm |)ttci UseUl no rihriF "Cnsal En 

urudo ' . com <4rai cenkm 

FHtMSlmMHR'nieieuniPw ISIiaWneneeaxsM; 



aira<ti Oe rBBliKcos cenirm Quanlo inci esnw orepn 
»e*ente i*n ccrcatB ie» 

S««iC<»iolGoW;l'6!; MWirt jraficj »ci ae« Wat 
a Ndio Mindtt wwrr* com oi>d e glorkjoani Cotm 

Ihi hcrtwl HULK ' Mmura |faf ca btseaoa r4 rwCT Do 
HUUl Vtci Am door me KrM w de rukg^a 

c«iiiiKODoM0«(jn4) ' ui nuto i suyv) wuwo 

aapnudoMnelOr Hi|teioc«iansaed«minaotii' 

midojuiiohtat 

llHCiMftlMin|JI64i pNondOifnlWctpimajninde 

Mss mxDS. dmne eua nonMi Man 

BnicoLMlJI UlekanrtcOTioofsmoH Bruce LfeUw OS 

n«i|e> e m luodnn de stnli e comHoe as men ttnea 

laset 

MiDolJl M^eirimiicoMdeie/ainiteferoseuMrRv 

de i/ttS ttn)*l (yagj 

WnuCtrmenStiidleloietl seieumdeieCivequedMd 
pnndet « cuwado peio roubo Vnp nek) mundo coieando 

UTIUTARIOS/APLICATIVOS - APPU U 

- CiS 360.00 - 

MUnlc ' pnmti) oe cKuU 
vutpMUVbiifM - (endot de piAco) 
Mdn • cqaniBdv de itMdedn 
tMffli-teadofdeMncodedidot 
VWWin migramideconu'^tlanaMOOEl' 
VllicNMule iriiMfin»nc«nPW!lCPlil 
IppleLOGO iotwXO' 
AppHFOOTUNICPiMI compew 
«ppiiMMhMie uBMimpKicti 
WphiPKit (eredotdeirjAcnpaniaoeonwaa 
GnFOVTH convAdor 
Loowmoi &» - uudrxi de c«H 
•Htblei tait K3 ' ittdra de cao>i 
rne GnpNei Hc^Mm ' anrntosr ([«iQ) 
The Gtphlei SoluDn - eoet de irHcM 
^ntShoc jiottdeiintftaoigiltcoc 
utflc WiuMb H . pnxeuador de teM 

- CiS 530,00 - 

Turta WSUi ICPMI . umpHaOoi 
Tike 1 su(ief animaou irttKti 

JOYSTICK ANAi6gIC0 - APPLE II 

- CiS 360.00- 

JOGOS - CP^OWSOO 

- CiS 80,00- 

flfht SlmiltW |P| . smMW de via 

Olympic [)ecftl«n (F; jogos CinipKOS 

Happy >r sd>AOsaDO 

Umared PWW iF| patrJhadeOntwe 

UmvLandeifi d(msc r>«s ;tale<K aa be 

Allen 0«teftwi'^ [v«ela-M005^^asores 

Meteof Hiuion if ' c»(»»es()K4i 

OulMweiF": jnjttasw-oanneifo 

RcMl UUcti 'Fi . on^TuS cs rtMs 

Sel Onion if;i pwUixnsueniarau 

Miuilt Auck ,fi - oeleTKU nacKBde 

Scarfminir, jo^o upo E^ Han 

C»«™ [P. ■ escape .w a»c**mi 

RtwntoifR io'i^jnae-»r«uiie<n« 

Slt!*i Seen i"^! defenOi-seflaMrairFmija 

lUwK (F) ' h^a dos Igu ramfiH 

Deam S(«d |F) - icebe con u erarmes ptsMtn 

Coimie FVKirfF) . 10(0 tw ^Msns 

Pifilii|F)'Mcaoedas«ot)6s 

PinbtniF! i-Doftpeum* 

C4i]r Pilnto (F) - p«te I BU. se puW 

DttdufliFjaiudeagahiAa 

SHUT iMilea (F| - tipo inti-awies 

SMlMlFl-MiidEuore: 

iMkl'MperMmira 

Spook HouMaw4mgnrca 

Toilc DvmpiHt nenlin aHia 

Uvtntur . 4 MTiLias dftfenCBs 

Fucfuc pnjgrjma pofnoplhco 

Gte«i{F) caceosVanavnsdeinaciMe 

•Mi ccmpietsotraielodei/nWiy 

UTtUTARIOS APUCATIVOS - CP-500 
-CiS450.00- 

Otitot ■ geiMof de wotfamai aiSC 
V1iK«c plar^OeciKiMs 



Na compra de qualquer 
produto Softline, 
receba o informativo TILT 
com a descriQao de 
programas, dtcas, novidades 
e informagoes tecnicas. 




Clone M ' copiado' r«oujo de ftsuK 
MXELM con-D-UdMSmC 
BtKvn con'-D<l£lor SAStC 

- CiS 560,00 - 

NEWDOSWiiO sisanvopencOTai 
OOSPUJS 35 ■ laama ooeracanai 
Armief N - nunc de dKetOos 
Ptoffle HI* . gndor de banco oc OaOM 
SmwrSCSlPSn - pnxKsaoo' de iKDs 
ZfUS sjoereaiofKirrMr 

DttnMU wpei MaSMfnOW 

-as 670,00- 

Pioducei itrsav X Bntrvai 
Swer Ulitily 31 wwowin) 



JOGOS ■ SPEaRUMfTH 90X 
- CiS 70,00 - 

F)|MetPllot |13i p«a»iniF15Eag« 
FI^M ^mglenoinMI smi««r0e»*o 
ftfwOekUi (0 («'; x^naWTinrrKt 
lide'iMl cor>«ciGeai;»roespa(D 
S(yiiJ8i arOeroa(«ir!of mate awuia 
MmUmw |I8)- wHo'E a tun«a do !mu 
Imdt |1S)- ptn (via C«njrrt> -m ]D 
IlitthHinHiBi-iiniisKDTi'^emSD 
CutUntiS) ima MTiiin no C3iie*o 
Uiltta^iii sjneasvuoaOMicMenlD 
fieUif ttttcfc [48) •jrasbsetmespa^ 
Cktw {iS) ' jcgd de ladKi com i4nas ni»ea 
AnAoM Z lU I n«a 01 io06t Centra cfn 30 
0itttiMn(!4A pMei^rataF-iScmBO 
Ibiie HUmt (U) ' recotu OS oOftoi di mna 
Petty WntM (iS) ' preencna OS qusmdos 
PmI |4£|- Untince w de inju 
PTIiAn im • nam « pe(3i do canputado' 
Plnmcnl* (4BI - KHiue 01 ncMm 
Tkt PirnnM (4B) ' wentva na priirade 
KTMkDue<|4S) wpetpnanaoeianajes 
3D SWRrUi* (48) - guen^ >« tsstva 
Sm <il BlUfef (43; - iTcoTia OS otqetos 
tvflnft'iBi 0eten(UsiHbaMkr#«<n]D 
IWiMii«i46j DiBldPBmoB'K'SiiKBrineo 
WiGiiyi48) dasesdo ro fiime fflJTO SA Ql^EW 
Boo(»Boo(48l a|uaoupD»Tw>doan'iccinna 
tRwnm |4S| - m«ie C«noe Draciia 
MKkbtdi 146) - ^ude Cwctfidt de Sraeoame 
MnUr Mttdittq -consne nK I4a!vrai 
SPY I sn |4S)- guem dos espitei etn 3D 
IM(h( ton 1481 MmunmcMMLem^ 
FwdiiSi Msw^crsflwgoidiprtnMe 
Fentastic W)r«|> 491 - enVe no nrpo humane 
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CBBS: a informacao 
via computador 



Que tal transformar seu equipamento num dinamico 

quadro de avisos, onde voce possa trocar informagoes 

com outros usuarios e ate mesmo anunciar a venda ou 

compra de objetos? Conhega agora os CBBS e descubra 

essas e outras mil possibilidades do seu micro. 
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m micro isolado hoje em dia 
nSo temmuitosentido". Esta 
afinna9ao e do operador 
Rizieri Maglio, do CBBS 
Sampa, mas, com certeza, ela tambem 
estava na mente de Randy Sues e Ward 
Christensen, dois americanos que, em 
1978, criaram em Chicago o primeiro 
CBBS ou Computer Bulletin Board 
System (sistema de quadro de avisos 
por computador). 

A ideia surgiu da necessidade de ofe- 
recer urn ponto central de chamadas 
para os membros de um clube de mi- 
cros, atrav^s do qual eles pudessem 
trocar informa?5es, como num dina- 
mico quadro de avisos. 

Na epoca, o preQO dos microcompu- 
tadores no mercado americano ja atrai'a 
um grande numero de usuarios, so que 
nem sempre o entusiasmado iniciante 
sabia o que fazer com seu micro depois 
da compra. Sendo assim, ligar-se aoutros 
usuarios para troca de infomia^Oes e 
dicas t^cnicas tornou-se uma 6tima 
op93o, que levou os CBBS a uma 
grande popuIariza9ao. Pouco depois do 
CBBS de Sues e Christensen surgiu um 
Apple BBS, que foi seguido por oulros 
como Forum-80. Access-80 e The 
Greene Machine. 

CONHECENDO OS CBBS 

Atrav^s de um CBBS pode-se enviar 
mensagens de varias naturezas para 
usudrios; conversar on line com o ope- 
rador, utilizando o sistema para diri- 
mir duvidas; compartilhar experiencias; 
vender ou trocar equipamentos e at^ 
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anunciar servi^os, acabando por fazer 
novos amigos em meio a essas ativida- 
des. mais interessante no CBBS e 
que, como em qualquer quadro de avi- 
sos comum, o usuario pode deixar 
(ou receber) mensagens para seus ami- 
gos, sem que haja a necessidade de 
contactl-los naquele instante. 

O usuario que deseja coneclar-se 
a um BBS precisa ter a sua disposi^So 
um microcomputador; uma interface 
RS-232C; um modem e uma Unha tele- 
fonica. Com isso, sem sair de casa, ele 
poderd ter acesso a informa^oes que 
vao desde dicas tecnicas ate a programa- 
93o dos cinemas para o fim-de-semana. 

Outro detalhe importante e que a 
grande maioria dos CBBS ^ gratuita. 
o usu^io s6 paga pela liga^So tetefoni- 
ca. 

Embora pare^a complicado e, para 
muitos, algo fora da realidade, criar 
um CBBS tambem nSo e tSo difi'cil 
assim. Para quem pretende ser um 
Sysop (operador de sistema), o equipa- 
mento nSo e muito diferente: um micro 
(com no mi'nimo 32 Kb de RAM); uma 
interface serial RS-232C; um modem 
(de preferencia com resposta automati- 
ca); memoria magnetica (cassete ou dis- 
quete)e o software. 

Certamente, aqui no Brasil o maior 
problema estd na aquisigao do progra- 
ma, pois ele n3o esta a venda no merca- 
do e nem todos tem condigOes de de- 
senvolve-lo. Em contrapartida, aqueles 
que OS possuem (desenvolvidos ou com- 
prados no exterior) nao os liberam para 
copia. Ja nos Estados Urudos, e grande 
a disponibilidade desses programas, que 



tanto podem ser comprados em lojas 
por pre90s acessi'veis ou obtidos em 
bibliotecas de software. 

Com a proUfera^ao dos programas 
comerciais para CBBS nos EUA, muitas 
pessoas que utilizavam o micro apenas 
durante o dia ou hordrio comercial 
passaram a deixar seu equipamento li- 
gado a um modem de resposta auioma- 
tica durante o tempo ocioso. Hoje sao 
mais de dois mil sistemas espalhados por 
todo territorio norte -americano e 
cerca de 100 entre Canadd. inglaterra, 
Alemanlia e outros pai'ses, inclusive o 
Brasil. 

Devido ao grande numero de CBBS 
nos EUA. as vezes chegando a casa das 
centenas num mesmo estado, houve uma 
divisao natural: a especializa9ao. E mo- 
tivo de satisfa9ao para um operador ve- 
rificar que os acessos ao seu sistema sSo 
em grande quantidade. Como passaram 
a existir muitos servi9os disponiveis, 
cada operador tratou de tomar o seu 
CBBS mais atraente, oferecendo servi9os 
para ireas especiTicas. Atualmente tem- 
se sistemas especiTicos por linhas de 
equipamento (TRS-80, Apple. IBM, 
etc.), linguagens e para grupos de 
interesses comuns: Astronomia; Medici- 
na; Jogos de Aventura; Fotografia, Fila- 
telia, Musica, Sexo, Homossexualismo, 
Humor. Bolsa de Valores etc. 

Existem ate CBBS nos EUA com 
aplica90es bastanle peculiares como os 
especial izados em corrida de cavalos e 
ate em namoro (tipo "Namoro na TV"). 
No estado de Sao Francisco, por exem- 
plo, a propria poli'cia tem um CBBS 
para quem quiser dar pistas de fugitivos 

MICRO SISTEMAS, 3bnl/86 



ou criminosos sem se identificar. 

No caso particular dos CBBS para li- 
nhas especi'ficas de equipamentos, nada 
impede que um Apple entre em um sis- 
tema para TRS-80. que acontece, 
neste caso, e que o usuirio de Apple nSo 
vai achar muita graga em encontrar a 
maioria das mensagens destinadas aos 
usuarios de TRS-80. 

OS BBS BRASILEIROS 

No Brasil, o primeiro CBBS a apare- 
cer foi o do Pinto, no Rio de Janeiro, 
em abril de 1983. Paulo Sergio Pinto 
voltou entusiasmado de uma viagem aos 
Estados Unidos. onde fez contato com 
vdrios CBBS. Logo que chegou. conti- 
nuou acessando os sistemas americanos, 
mas, diante dos gastos com a conta 
telefonica, achou que seria melhor 
abrir seu pr6prio sistema por aqui. 

Pouco depois do CBBS do Pinto, 
mais precisamente em junho de 83, 
Henrique Pechman colocou no ar o 
Forum-80 do Rio de Janeiro, que des- 
de entao funciona sem interTup9ao. 
contando atualmente com mais de 
4(X) usuarios cadastrados. 

Atraves da divulga9ao e ajuda dos 
operadores, foram surgindo outros sis- 
temas e agora temos cinco atuando no 
pai's: Forum-80 e LogiCbbs (no Rio); 
Sampa e ABBS Atari (em SSo Paulo); 
e CBBS do Otto (em Curitiba). Foram 
extintos os CBBS do Amim e do Prado, 
e o CBBS do Pinto est^ temporariamen- 
te desativado. 

sistema mais recente e o LogiCbbs. 
criado por Jonas Roter, um garoto de 




Henrique Pechman operando o Forum -^o. 



apenas 15 anos, no fim do ano passado. 
Segundo Jonas, seu inicio nao foi muito 
diferente dos outros: "Comecei tudo 
por curti9ao. Acho muito interessante 
poder trocar mensagens com pessoas 
por todo o pais." Embora encare seu 
CBBS como diversSo, Jonas trata de sua 
manuten9ao com muita seriedade e a- 
crescenta que pretende melhora-lo 
"sempre que for possi'vel". 

Alem dos servi9os oferecidos normal- 
mente pelos CBBS, alguns apresentam 
inova95es, de acordo com a criativida- 
de do operador. No Sampa, por exem- 
pt o, OS operadores Rizieri Maglio e 
Rubens Paulo Silva estao sempre progra- 
mando novas op95es. Isto porque o 
software foi desenvolvido por eles 
mesmos, tomando-se possi'vel modifica- 
lo. No momento, eles estao oferecendo, 
entre outros, servi90 despertador; dicas 



O contato com CBBS 



Se voci pretende entrgr em contato com 
CBBS de outros pai'ses e nSo se imports em 
gastar a/guns cruzados (Cz$ 35 por 
minuto. para os EUA, e Cz$ 42. para a 
EuropaJ em ligapdes internacionais, a prj- 
meira provid§ncia 4 obter os numeros desses 
CBBS. As melhores fontes sSo alguns 
CBBS nactonais (Forum-80. por exemp/o), 
que listam os numeros dos sistemas do ex te- 
nor, al4m dos do Brasil. 6 claro. VocS tam- 
bem pode fazer uma assinatura de publica- 
pdes especi'ficas como "On-line Computer 
Telephone Directory Poster", criada e publi- 
cada por Jim Cambrom e considerada a 
mais importante do setor. Para assinatura 
anual ao preco de USS 19.95. escreva para: 

J. A. Cambrom Company. Inc. 
P. O. Box 10005 
Kansas City. MO 641 11 

Abaixo. damos a lista de alguns CBBS 
que voci poder^ acessar. Lembramos que 
um problema comum com os BBS 4 que eles 
aparecem e desaparecem com certa fre- 
qiiirKia. Portanto, nem sempre 4 possi'vel 
saber se determinado sisterrra esti operando, 
temporariamente fora de operacao, fora do 
seu horirio ou simplesmente desativado. 

• Estados Unidos 

CBBS# 1. Chicago, Illinois. (312} 5453086 



Connect ion -80^ , Centereach, New York. 

(516)588-5836 

Berkley Conference Tree. (415) 538-:S80 

PMS People's Message System, (714} 449-5689 

S-E-Xf Kinky Kumputer. (4151 647-9524 

Astronomy, (212} 787-5520 

Adventure Board. (2011376-8055 

Forum-80^ 1, (816} 861-7040 

NASA, (301} 344-9156 

IBM /PC. (703) 560-0979 

• Europa 

CBBS North-East, Inglaterra, {44} 02707- 

43555 

Mailbox-80. Inglaterra. (441 051-428-8924 

Forum-80. Inglaterra. (44} 0908-566660 

Forum-80. Holanda. (21) 01-313-512533 

ABC-80. Suipa. (046} 010-468-190522 

Para quem pretende acessar os BBS lo- 
cals, ai vSo OS telefones: 
CBBS do Otto - (041} 262-4743 
LogiCbbs - (021} 259-4413 
Forum-80 ■ (021) 287-8844 
Sampa- (011)853-6273 
ABBS Atari - (01 1) 545 7557 

Em MICRO SISTEMAS n? 43 foi pub I i- 
c^do o artigo CBBS. um quadro de avisos 
comunitdrio, de Ricardo Muricy, orjde voci 
pode obter outras informapdes sobre os 
BBS. 
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de teatro, cinema e shows; tarifas tele- 
fonicas; concursos temporarios (veja 
Se9ao Bits "Concurso de Telas Grafi- 
cas") e uma op9ao gate, que permile 
ao usuario acessar outros CBBS paulis- 
tas atraves do proprio Sampa. 

Durante as festas de fim de ano, 
Rizieri e Rubens criaram um cartSo 
de natal musicado e. peia ocasiao do 
«nivers^rio de Sao Paulo, uma mensa- 
gem acompanhada da musica Sampfl, 
de Caetano Veloso. Rizieri anuncia 
que tambem esta desenvolvendo um 
software de comunica9ao entre micros. 
S6 que. ao inves de coloc3-lo k disposi- 
93o do usudrio no banco de software, 
ele quer comercializa-lo: "Pretendo 
cobrar um pre9o bem baixo por esse 
software, apenas para cobrir gastos com 
o sistema". 

"Alem das novidades no software, 
Sampa est3 funcionando com um 
micro CP/M profissional, com capacida- 
de de armazenamento de 2 Mb e op9§o 
para mais dois". Rizieri tambem preten- 
de colocar em funcionamento, ainda 
no mes de abril. o Sistema Sampa Sul, 
que oferecera as mesmas op95es do sis- 
tema paulista. 

Apesar da diversidade de servi90s 
oferecida pelos CBBS nacionais, ainda 
n3o chegamos ao ponto de ter BBS 
especiTicos, devido principalmente ao li- 
mitado numero de usuarios e de CBBS 
em funcionamento, o que ainda nSo le- 
vou a uma acirrada concorrencia que 
justifique um maior investimento em 
es[)ecializa93o. 

Na opiniSo de Antonio Carios Pra- 
do, "a hora em que as aplica95es comer- 
ciais come9arem a se ampliar (com mi- 
cros e modems a prefos mais baixos) 
com sistemas nas universidades para os 
alunos se familiarizarem , poderemos 
chegar a um numero talvez at^ seme- 
Ihante no dos EUA, hoje". 

Certamente, os CBBS especiTicos se- 
nam muito uteis a profissionais de a- 
reas como medica, de comunica93o, 
de estati'stca, etc. Mas isso exigiria 
uma manutenfSo rigorosa de dados e, 
no momento, os CBBS particulares 
nSo tem condifOes de faze-lo. Talvez, 
a melhor solu93o fosse a cria9ao de BBS 
por instituifOes ligadas a cada atividade. 

OS OPERADORES 

entusiasmo e, ate porque nao di- 
zer, a paixSo s3o marcas registradas do 
operador. Cada um pode ter motive 
particular, mas nenhum deles esconde 
seu fasci'nio pela teleinformatica: "E 
por paix3o que me dedico a isso. £ uma 
coisa muito boa profissionalmente falan- 
do. pois sou programador; isso sem 
contar a quantidade de amigos que a 
gente faz. . . os horizontes ficam maio- 
res", diz Rizieri. 

Para Marco Antonio Romano, opera- 
dor do ABBS Atari, tambem de Sao 
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Paulo, o trabalho ^ vislo com muita 
seriedade; "A partir do momento em 
que a gente se propOe a abrir um CBBS 
6 porque pretende ajudar os outros. 
Meu sistema vai ser sempre gratuito e 
sempre que puder melhor^-lo, vou faze- 
lo". 

Na verdade, todo esse entusiasmo 
e mais que necess^o porque para ser 



um Sysop nao bastara equipamentos: 
antes de mais nada 6 precise tempo e 
forga de vontade para fazer a manuten- 
950 do sistema. 

Atualmente, uma grande dificuldade 
dos operadores brasUeiros e que os 
usu^rios ainda n2o se acostumaram a 
trocar mensagens entre si e exigem a 
presen^a constante do Sysop. Este pro- 



blema faz com que ele se sinta muitopre- 
so, podendo levar ao fechamento do Sis- 
tema, como aconteceu com o CBBS 
do Prado; "'Parei porque me consumia 
muito tempo. As pessoas queriam con- 
versar comigo e isso exigia minha pre- 
sen9a. Tinha de acordar mais cede para 
responder as perguntas. . . Eu gostava de 
tudo automatico, mas o pessoal nao 
achava gra^a, queria mesmo era conver- 
sar comigo", diz Prado, ex-operador de 
um sistema paulista. 

Tambem e comum alguns CBBS es- 
tarem temporariamente fora do ar. £ 
bom lembrar que nem sempre Sysop 
pode dedicar seu tempo integral ao sis- 
tema e que, muitas vezes, precisa de 
seu equipamento para atividades profis- 
sionais. Hoje em dia, s6 o Sampa e o Fo- 
rum-80, no Rio, funcionam 24 horas por 
dia. 



RepKjrtagem de Lia Bergman e Monica Alonso 
Texto final: Monica Alonso 



Dicas de um Sysop 



Se voci pretende criar seu prdprio 
CBBS. vale prestar aten^So em algumas 
dices de Quem tern experiSncia no assunto. 
Elas foram escritas por Henrique Pechman. 
um dos operadores do Forum -80 do Rio de 
Janeiro. 

A lista abaixo servirS de base para seu 
pi a nejam en to : 

;. Cadastro de usu^rios - permite saber 
quem chamou (e quando) o seu CBBS. Al- 
guns dados importantes: nome. enderepo 
completo, tipo de computador. data da lilti- 
ma chgmada, numero da mensagem lida, 
ni'vel de acesso e senha de acesso. 

2. Caixas Postais — permite enviar e recaber 
mensagens entre usuirios. Talvez a fungSo 
mais importante de um CBBS. As mensagens 
podem ser classificadas como gen4ricas 
(podendo ser lidas por todos): comerciais 
(compra. venda etc.); pessoais (s6 podem 
ser lidas pelo destinatdrio}; Sysop (mensa- 
gens para operador do sistema} ou restritas 
(lidas apenas por um determinado grupo). 

3. Boletins do sistema - permite que o 
operador do sistema coloque mensagens ou 
avisos para todos os usuArios do CBBS. 

4. Upload /Download - permite receber e 
enviar programas. Existem vArios proloco- 
los de comunicagao em uso: Prompt, X- 
ON/X-OFF. XModem etc. 

5. Chamar o operador — permite uma co- 
municaQBO on-line com o Sysop. 

6. Jogos — permite acesso a jogos on-line 
com o CBBS. 

Os programas podem ser escritos em 
gualquer linguagem de alto m'vel (BASIC, 
FORTRAN, Pascal) com algumas sub- 
rotinas em linguagem de maquina. VocS 
pode optar por um unico programa residen- 
te o tempo todo na memdria, apresentando 
ripida resposta a qualquer oppao e tambem 
minimizando o espapo ocupado nos discos. 
Por outro lado, no caso da abordagem de 
um sistema modular, podem-se ter virios 
subprogramas que sao carregados para a 
memdria de acordo com a op^So do usua- 
rio. Esta tScnica de programafio facilita a 
manutenpao e criapao de novos mddulos. 
Como desvantagem. podemos citar o gasto 
de espapo em disco; o tempo perdido para 



carregar cada mddulo; e a passagem de 
vari6veis de um mddulo para outro. 

Mais um aspecto a ser considerado A o 
uso de sub-rotinas em linguagem de maqui- 
na. Estas rotinas sao para receber e transmi- 
tir atravAs da porta serial; conversao de mi- 
nOscula/maiuscula; formatapao do texto de 
acordo com o tamanho da tela do usu^rio; 
conversao de cddigos de controle de video; 
controle de fluxo de dados; controle de per- 
da de portadora etc. 

VocS deve ainda optar pela forma de 
organizacao do seu CBBS- Os mAtodos 
mais comuns sao menus e piginas. Os CBBS 
organizados em menus permitem que o 
usuSrio escoiha a opgSo desejada atrav4s 
da letra correspondente. Os novos usuirios 
recebem menus mais detalhados do que os 
mais experientes. m4todo de pAginas pres- 
supde o CBBS dividido em blocos separados 
ou pAginas de dados. Este m4todo 4 muito 
eficiente para usuArios ji experimentados 
porque permite um rApido acesso a funpSo 
desejada. 

be qualquer forma, o mais importante a 
ser levado em conta no planejamento rf 
manter o sistema conversacional. O novo 
usuirio deve ser bem orientado sem que. 
no entanto, o sistema fique repetindo in- 
formacoes desnecessarias para os mais 
antigos. Uma boa t^cnica 4 solicitar aos 
iniciantes que teclem <:RErURf^^ou <£/V- 
TER > toda a vei que tiverem dificuldades. 
Desta forma, eles podem receber oppdes e 
informapdes detalhadas. 

consideracOes t^cnicas 

Se voc4 possui um sistema de disco, 
pode gravar dados e grandes quantidades 
de informapSo em arquivos. Caso contrario, 
deverA utilizar outros m^tados para manter 
OS dados do programa. Num sistema com 
discos. vocS deve decidir quais serao os 
arquivos, que informapoes serao gravadas e 
a forma de acesso. Um bom manuseio de 
arquivos randdmicos permite que se ofere- 
cam melhores oppdes em cada apUcapao 
espec I'fica. 



Sempre que dois modems sao conectados 
atrav4s de linha telefonica. sinal da porta- 
dora (CD) pode ser escutado na linha como 
um tom agudo. Este sinal permanece duran- 
te todo o tempo de conexio e permite a 
verificapSo de uma queda de linha (intencio- 
nal ou acidental). A porta RS 232-C ofere- 
ce uma sArie de outos sinais que possibilitam 
detectar todas as situapdes possiveis. Tudo o 
que voci precisa fazer i checar os bits 
corresporuientes, de acordo com os manuals 
de seu computador e modem. 

Um dos maiores problemas ao colocar 
um CBBS em funcionamento 4 manter um 
controle completo do sistema, VocS deve 
prever rotinas de recuperapao de erros de 
forma a manter o funcionamento em qual- 
quer caso. 

Chamamos de erros de telecomunicapdes 
aqueles causados diretamente da comunica- 
pao atrav4s de linhas telefdnicas. Esses erros 
sio detectados pela interface RS 232-C 
atrav6s de sinais especi'ficos. A convenpao 
de ecoar os caracteres recebidos oferece ao 
usu4rio um feedback constante do que 4 
transmitido. permitindo a correpao imedia- 
ta. 

Erros operacionais ocorrem quando o 
seu computador acusa algum problema que 
interrompa a execupao do programa. VocS 
deve filtrar todas as informapoes recebidas 
para evitar o processamento de caracteres 
indesejAveis. 

Erros de programapao tambSm podem 
iKorrer se o programa original nao foi su- 
ficientemente testado em todas as suas 
possibilidades. Pode ainda ocorrer uma faiha 
na inicializapao do sistema. VocS deve preca- 
ver-se contra os erros do usuirio e tamb4m 
contra seus prdprios. 

Na eventual falta de energia el4trica. o 
sistema deve ser capaz de auto-inicializar-se 
quando esta 4 restabelecida. ficando nova- 
mente pronto para receber chamadas. Irn- 
plemente todas as rotinas de recuperapao 
possiveis Nao hesite em tentar situapdes 
singulares. A experiSncia eobom-senso vSo 
produzir rotinas personal izadas que justi- 
ficarao o esforpo gasto no desenvolvimento. 
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Agora voce podera colocar seu sistema 
dc mensagens elctronlcas (CBBS) no qx 
com o primciro gerenclador totalmente 
desenvolvido no Brasil. 

Do empresario ao hobista, do 
telemarketing ao CBBS privado, o unico 
limite sera a sua imagina<;ao, 

Com modules totalmente personalizados, 
o DELTA dara a certcza do seu sistema ser 
o Linico. 

O DELTA e compativel com qualquer 
maquina CP/M (*) e pode ser comparado 
com qualquer gerenciador importado. 

As principals caracteristicas sao: 

- Cadastramento de usuarios 
-MSGS pessoais (inviolaveis) 
-MSGS publicas 

- Anuncios classificados 

- Noticias 

- Protocolo xmodem 
-Tratamento de telas 
-Reaproveitamento de registros 
-Editor de alto nivel 
-Manutenc;ao local ou remota 

- Personalizagao do sistema 

... e tudo aqullo que puder imaginar e o 
hardware permitir. 




lnforma<;6e5 no Sistema Sampa, 24 horas 
por dia, 7 dias por semana, em 300 ou 
1200/75 bauds. Fonc (01 1) 853-6273. 

(') Em breve, tamb6m em MS/PC-DOS 

(*] CP'M t martLa rcglstrada da OlgTUJ Rete«rch 
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Desenvolvido num TK82C, este programa facilita e agiliza o controle 
e armazenamento de duplicatas e outros tipos de fichas cadaslrais. 



Cadastro 



.Gilson Roberto Viana. 



Este programa foi desenvolvido 
num TK82C (Unha ZX81), e 
tern como fmalidade facilitar e 
agilizar o amiazenamento de fi- 
chas cadasUais atraves de comandos 
diretos, acionados pelo teclado. 

Criado totalmente em Assembler, 
tem, portanto, uma aita velocidade de 
processamento, com acelerados proces- 
sos de inserfSo, deleta(3o, leitura (entre 
outros), das fichas na memoria. toman- 
do menos cansativa a tarefa de se digitar 
grandes quantidades de dados (tediosa 
em programas BASIC). 

Sao dois OS metodos de armazena- 
mento utUizados neste programa: 



1 9) Simples; insere caracteres simples 
(letras, sinais grificos, etc.); 

29) Especial: insere palavras-chaves, 
ou seja, copia na mem6ria palavras que, 
por terem uso freqiiente, foram preser- 
vadas numa Unha do programa. 

Ao inserir as fichas, o programa ex- 
pande a regido das variaveis, no exato 
tamanho do texto digitado; ao contrario 
das versOes BASIC, que estabelecem um 
tamanho padrSo para as fichas, reduzin- 
do a quantidade de dados a serem inse- 
ridos. 

Quando a membria estiver repleta de 
fichas, a tela ser4 totalmente preenchi- 
da por asteriscos, indicando que nSo po- 



derii ser inserida mais nenhuma ficha. 
Seguindo o principio de que o pro- 
grama deve adaptar-se ao usuirio e nSo 
vice-versa, € que criei um comando ex- 
tra, para redefini^So do painel, permi- 
tindo que se possa mudi-lo de acordo 
com OS propositos do usuario. Original- 
mente, o painel foi definido para aten- 
der ^s necessidades de pessoas que fa- 
zem controle de duplicatas, conforme 
mostra a figura 1. As varia^Oes possi- 
veis ficam a cargo dos usuiirios. 

FUNCIONAMENTO 

Surgiri, inicialmente, o nome do pro- 
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05 melhores especialistas, programas, 
equipamento5, formularios, manutenqao, 
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grama em letras garrafais, acompanhado 
de sua origem (Vianasoft com um ar 
profissional), que desaparecera alguns 
segundos apos, para dar lugar ao painel. 
Na parte inferior da tela estara o menu, 
aguardando um comando. Se a tecla 
acionada for referente a algum coman- 
do, ele sera executado, case contrario, 
menu ser^ desativado. 

Pressione N/L para fazer a leitura do 
proximo cliente, o qual serd determina- 
do pelo comando L (ver comando L). 
Chegando ao fim do fichario, sera im- 
pressa a mensagem FIIM, e, automatica- 
mente, o endere^o de leitura volta ao 
ini'cio. 

PALAVRAS-CHAVES 

A finalidade das palavras-chaves i 
poupar memoria e tempo de digitagSo, 
aproveitando-se da repetitividade de cer- 
tas palavras (ruas, cidades, endere90S em 
geral, prefixes telefonicos etc.). 

O uso de palavras-chaves i feito pelo 
comando 5 - Insere. Atraves do controle 
SHIFT + 9 e colocado o cursor ( * no 
modo GRAPHICS), indicando que a 
opera9ao foi Iniciada. Se voce digitar o 
carater representativo da paiavra-chave 
desejada, ela ser^ impressa na tela. No 
caso de ser dlgitada uma paiavra inexis- 
tente, o cursor volta ao eslado normal 
de impressSo. 

DEFINICAO DE PALAVRAS-CHAVES 

Antes de digitar as palavras-chaves, 
fa9a uma tabela seguindo o exemplo da 
figura 2. 

Na segunda coluna, coloque a iista 
das palavras que serao definidas como 
palavras- chaves (maximo 53). 

Na primeira coluna, serao colocados 
OS caracteres represeniativos. Com auxi- 
lio do manual de seu micro, preencha a 
primeira coluna com os caracteres sim- 
ples, iniciando em aspas ( " ) e temii- 
nando quando todas as palavras estive- 
rem representadas (a seqiiencia de colo- 
ca^ao destes caracteres deve ser igual i 
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do manual). Desta maneira, loma-se fa- 
cil identificar o carater que representa 
uma determinada palavra-chave. 

DIGIT ANDO AS PALAVRAS-CHAVES 

As paJavras-chaves devem ser digita- 
das na linha: 

2 REM COPY 

Edite a tinha anterior do programa 
em BASIC com o comando SHIFT + I, 
colocando o cursor entre os comandos 
REM e COPY e procedendo a digita?^©. 

Digite as palavras-chaves na mesma 
ordem em que voce as colocou em sua 
tabela, tomando o cuidado de digitar 
a primeira letra de cada palavra-chave no 
modo GRAPHICS. Descreveremos, a 
seguir, os principals comandos: 

Comando 1 = COPY - Copia na 
impressora o que estiver na tela. 

Comando 2 =GRAVA - Assim que 
for acionado, grava uma copia do pro- 
grama em fita cassete; portanto, prepare 
gravador antes de aciona-lo. 
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Figura 2 - As letras minusculas devem ser in- 
seridas em modo GRAPHICS. 



Comando 3 = PAINEL - Usado para 
modificar o painel, de acordo com as ne- 
cessidades do usuario. Inicialmente. o 
primeiro carater do item "Cliente" ser^ 
mudado para um carrier simples, Indi- 
cando onde sera colocado o cariter digi- 
tado. Se for pressionada a tecla N/L (ou 
a modifica^ao do item estiver comple- 
ta), a operai^ao muda para o pr6ximo 
item, voltando ao programa normal, se 
for ultimo. Cuidado para nSo errar. 
pois nao hd controle para corre^ao, e 
voce teria de chamar o comando. nova- 
mente, para corrigir. 

Comando 4 = LEITURA - Oferece 
duas op^des: 

1?) Atuai: Coloca o cursor na linha 
superior do quadro (a direita)e aguarda 
a digita^ao da data desejada. Cuidado, 
pois se voce errar nao podera corrigir, 
sendo ainda necessario executar o co- 
mando novamente. Este comando esta- 
belece a leitura, apenas. das fichas que 
tenham duplicatas com data de venci- 
mento igual k digitada; 

2?) Passado: Identica a primeira op- 
9^0, com a diferen9a que estabelece a 



leitura das fichas com datas iguais ou 
menores i digitada (mostra as duplica- 
tas vencidas). 

OBS.: Se for pressionada a tecla N/L 
fica estabelecida a leitura de todos os 
clientes, indiscriminadamente. 

Comando 5 - INSERE - Oferece 
duasop90es: 

1^) Cliente: Usada para inserir clien- 
tes. Inicialmente. o cursor e colocado na 
primeira linha da tela (junto ao item cli- 
ente). aguardando a entrada de dados. 
Pode ser digitado qualquer carater sim- 
ples ou palavras-chaves. Se for pressiona- 
da a tecla N/L (ou se o item estiver com- 
pteto), cursor passa para o proximo 
item. 

A ficha estara completa depois que o 
cabe9alho estiver totalmente preenchi- 
do, pressione, entSo. SHIFT + N/L para 
finalizar. 

24) Duplicata: Usada para inserir du- 
plicatas, que, por sua vez, estarao vincu- 
ladas ao cliente que estiver impresso na 
tela (um cliente pode ter varias duplica- 
tas). A opera93o e similar a primeira op- 
95o, com a diferen9a que inicia na quin- 
ta tinha (Item duplicata). 

Este comando possui os seguintes 
cont roles: 

• SHIFT + 0: Deleta (apaga) o ultimo 
carater ou palavra-chave digitada; fazen- 
do cursor voitar atris. Usado para cor- » 
re93es. "" 
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SOFTWARE PARA CP 400 E COMPATJVEIS 



APLICATIVOS: Processatfor de Textos 

PPTEXTO c/ acentuagSo em portugues. Plani- 

Ihas Eletronicas, Bancos de Dados, Pacotes In- 

legrados- 

UTILITARIOS: Edilor/Assembler. Expansor 

de Tela, Supenac. Compjladores, Copiadores: 

Etc. 

GRAFICOS: DUMP P-500. Esquemas Elelroni 

COS. Bjork Blocks. Comecciais, Graphicom e 

outros. 

LINGUAGENS: LOGO em portugues, PILOT 

para professores e uso didatico. PASCAL, 

C Basic. 

JOGOS; MuJtos tiiulos para mencionar aquJi 

Nossos cat^logos mostram as telas dos (ogos. 

Temos jogos exclusivos. Escoiha melhor na 

Peek & Poke! 



SOFTWARE PARA CP 500 / CP 300 



~ Pfocessadof de lextos PPTEXT 500 DISCO 
c/aceniuaodo. 

- Planiltia Eleifonica CALC300. Unica em Z- 
dOpara versdo K-7 

- Utilitarios copiadotos pare fjia e disco. 

- Edilof/Assembler. monitor MACMON e tu- 
tor de linguagem de n-i^quina. Em fita ou disco. 
Aprenda Z-801 

- Compilador ZBasic. Produz codigo objelo 
com rapidez. 



SOFTWARE PARA UNHA MSX 



Revendemos cartuchos e fitas cl os mefhores 
pre^os Desenvoivemos rtiulos proprios. Entre 
em contato. 



A PEEK & POKE demonstra, garante e d4 su- 
porte permanente a seus programas. Venha 
conhece-los ou solicite catalogo compleio para 
o seu equipamento. 



PEEK b POKE Mlcrucompulaf Ao « ComArcio VlOa 
Ay> Bug Fdria Limn. )E64 Con) 1102 
0145? Srto Paulo SP Fone (QH(BI3 3277 
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Listagem 2 



1 PEm ■. 1525 CAPACTESE=' 

5 CEM COP'-, 

10 CLEAR 

50 3IM BS 15' 

30 LET Bill TO 2.= RETL'PN 

40 Si-O'-' 

50 ^auL use 15055 

55 Cl.S 

60 iOTC 40 



• SHIFT + 9: Solicita palavra-chave. 
Inicialmente, muda o cursor para de- 
notar palavra-chave ( * no modo GRA- 
PHICS), aguardando que seja pressiona- 
do o carater representative da palavra- 
chave desejada. 

• N/L: Muda o cursor para o proxi- 
mo item. 

• SHIFT + N/L: Finaliza a ficha se o 
cabcfalho estiver preenchido (o cursor 
deve estar dentro do quadro), case con- 
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trdrio, tern o mesmo efeito de N/L. 

OBS.: Se nSo for feita uma op^So, e 
a tecla N/L for pressionada, o coman- 
do nSo sera executado, voltando ao pro- 
grama normal. 

Comando 6 = ELIMINA - Oferece 
duas op?5es: 

H) CUente: Deleta a ficha do cliente 
que estiver na tela, juntamente com 
todas as suas duplicatas. 

2?) Duplicata: Deleta a duplicata que 
estiver impressa na tela. 

OBS.: Se nSo for feita uma op^So, e 
a tecla N/L for pressionada, o comando 
nao serS executado, voltando ao progra- 
ma normal. 

COMO UTILIZARO PROCRAMA 

Insira todos os clientes com suas res- 
pectivas duplicatas, gravando, a seguir, 
o programa (fichario) em fita cassete. 

Fa^a uma verificagao do programa 
em pen'odos homogeneos (semanalmen- 
le, por exemplo), inserindo novas dupli- 
catas, eliminando aquelas que forem sal- 



dadas. Desta maneira, voce ter5 um per- 
feito controle de dupUcatas e seus negd- 
cios em dia. 

A DICrrAgAO DO PROGRAMA 

Digite primeiro a listagem 1 . Ao digi- 
tar bloco era Assembler (listagem 2) 
seja cuidadoso, para isso, utilize-se do 
Microbug e crie uma linha REM com 
1528 caracteres, digitando os codigos 
hexadecimais, a partir do endere90 
16514. 

Fa9a uma copia em fita cassete, antes 
de executd-lo (para previnir eventuais er- 
ros de digita9ao, digitando SAVE "C" + 
N/L. 

Se tudo estiver correto, execute o 
programa com RUN e N/L, e. . . 

Bom irabaiho. 



Gilson Roberto Viana rf estudante do Curso 
de Engenharia Elitrica. na UFPR, e progra- 
mador autodidata hA dais anos. 
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O APPLE DA DIGITUS 



A DIGITUS langa o DGT-AR um 
microcomputador pessoal totalmente 
compativel em hardware e software com 
a linha APPLE II PLUS e seus similares 

DGT-AP e um micro versatil, pois, alem 
de the ser util no trabalho, voce podera 
tambem usa-lo no lazer e nos estudos. 

Devido ao grande numero de programas 
desenvolvidos para a linha APPLE, o DGT- 
AP tem ample aplicagao tanto para as 
pequenas e medias empresas como para 
OS executives e os profissionais liberals. 
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Projetado para atender e acompanhar o 
desenvolvimento do usuario, o DGTAP 
possui estrutura para aceitar futuras 
expansoes, crescendo de acordo com 
suas necessidades. 

O DGTAP tem todas as caracteristicas 
basicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 
numerico reduzido incorporado a CPU. 

Alem de todas as placas disponiveis para 
expansao, voce tem ainda a garantia da 
tecnologia DIGITUS. 

Conhega o DGT-AP nos enderegos abaixo 
e nos revendedores autorizados DIGITUS. 
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Conhega, neste artigo, os processos de gravagao, carregamento e 
verificagao no TK90X. Veja tambem como fiinciona a instrugao MERGE. 



Gravacao no TK90X 



■Aldo Barduco Jr. e Pierluigi Piazzi- 



OTK90X possui um bom siste- 
ma de gravacao e leilura com 
recursos de verifica?3o e MER- 
GE. Existem cinco formas de 
gravacao, qualro fomias de carregamen- 
to, tres de verifica93o e um MERGE 
(jun^ao de programas). 

TK90X, como a maJoria dos mi- 
crocomputadores, amiazena em fita o 
programa byte a byte. Nele, a velocida- 
de de gravacao e leitura e de 1200 bauds 
(quase 8 Kb por minuto). 

Para se familiarizar com todos esses 
processos, digite o programa da figura 1 
(extraido do livro Explorandoo TK90X^ 
da Editora Aleph). Observe que nas li- 
nhas 50 e 60, a parte que executa o mo- 
vimento do Upis usa IN ao inves de 
INKEYS. Desta forma, podemos fazer 
a leitura de v^rias te'clas simultaneamen- 
te, o que n3o ocorre quando se utiliza 
INKEYS. Assim, duas teclas juntas for- 
mam uma diagonal. Para deslocar o Id- 
pis, use as teclas Q, A, Z e S nas dire- 
90es indicadas. Observe a figura 2. 

Digamos que voce, depois de brin- 
car um pouco com o programa Upis, 
queira desligar o computador. Para nSo 
ter que redigitar o programa toda vez 
que for utUizl-lo, vamos gravd-!o. 

SAVE (LOAD) 

Conecte o gravador com o cabo na 
posifao MIC do computador e MIC do 
gravador. Digite SAVE "Lipis" e ligue 
o gravador no modo de grava9ao (REC). 
Assim, gravamos a parte do programa 
BASIC e OS valores de suas vari^veis. 
Mas sera que gravamos certo? Para resol- 
ver este outro problema, vamos verifi- 
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:-C IF BL = i THEN D'-'ER 1 
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THEN GOTO 104 
THEN GOTO 1050 
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Figura I 

car a gravacao usando a instru^ao VERI- 
FY. 

Rebobine a fita at6 o inicio do pro- 
grama e conecte o gravador com o cabo 
nas posi^Oes EAR-EAR. Digite, entSo, 
VERIFY "LSpis" (lembre-se que ti- 
tulo do programa deve ter, no maximo 
dez caracteres). Ligue o gravador (no 
PLAY). Ap6s as bordas ficarem com 
barras vermelhas e azuis vibrando, deve- 




ra aparecer nome do programa no qua- 
dro central. A seguir, elas voltarao a vi- 
brar e no fim aparecera a mensagem 
EXECUTADOO:! 

Caso nao haja essa mensagem, houve 
gravacao ou leitura errada. Neste caso, 
execute novamente a opera9ao, alte- 
rando volume e verificando se os agu- 
dos estao no maximo. Notando que nao 
e um erro de carregamento, grave o pro- 
grama novamente e repita a opera^ao. 
Se o erro ainda persistir, limpe o cabe^o- 
te, troque de fita e ajuste o azimute (ve- 
ja MS n? 47, pig. 70). 

A grava^So agora esta boa, mas como 
carregar? Digite NEW para limpar a me- 
moria (lembre-se: NEW apaga o progra- 
ma e ludo o que estiver na memoria ate 
a Ramtop). Mantenha o cabo na posi9ao 
EAR-EAR e fafa LOAD "L^is". mi- 
cro ira proceder como no VERIFY, po- 
rem, ao inves de comparar os dados, ele 
OS carregarS na RAM. Ao final da opera- 
9^0, devera aparecer Executado 0:1. 

Para gravarmos com Auto Start , ou 
seja, gravarmos um programa que rodara 
apds o carregamento a partir de uma li- 
nha pr^-determinada, fazemos SAVE 
"Nome" LINE X, onde X e a linha do 
programa que queremos que seja execu- 
tada ap6s a carga. Entao, fa9a SAVE 
"Upis" UNE 10. 



Nao se esque9a: nas instru96esSAVE, 
devemos conectar o cabo MIC-MIC, e 
nas instru96es LOAD, EAR-EAR. Para 
verificarmos e canegarmos programas 
deste tipo, digitamos VERIFY "Lipis" 
e "LOAD "L^pis". Nao e possi'vel digi- 
tar VERIFY "Upis" LINE 10 e/ou 
LOAD "L4pis" LINE 10. 

Digite NEW, rebobine a fita e fa9a 
LOAD"". Quando nao indicarmos 
nome do programa, o micro carregard 
o primeiro que encontrar. 

SAVE (LOAD) CODE 

Agora que voce }i gravou o progra- 
ma, crie um desenho que fa9a o melhor 
uso dele. Digamos que voce queira guar- 
di-lo para mostrar aos amigos. Hi duas 
formas de fazer isso: a primeira 6 atra- 
v^s do comando SAVE... CODE. Para 
gravar, digite BREAK e, a seguir, o co- 
mando SAVE "Lipis" CODE 16384, 
6912 (16384 e o endere90 do im'cio da 
D-FILE, ou seja, do local onde o equipa- 
mento guarda a tela, e 6912 6 o mimero 
de bytes ocupados pela tela). 

Quando gravamos a tela em fita nao 
podemos verificar diretamente se ela foi 
gravada corretamente ou nao, pois ao 
jogar o nome do programa no video, ele 
altera os bytes da tela, que passam a nao 
conferir com os do cassete. Digite 
BREAK.CLS e fa9a LOAD "Upis" 
CODE. 

Observe que nao indicamos o endere- 
90 inicial e nem mimero de bytes, pois 
programa jd traz consigo estas infor- 
ma95es. (Note como a montagem da 
tela e esquisita, tipo persiana). 

SAVE... CODE serve para gravar- 
mos qualquer seqiiencia de dados (by- 
tes) guardados em endere90s especffi- 
cos, sendo possivel com o LOAD... 
CODE carreg^-los em outro endere90 
(ou no mesmo). Digite UDG 2 e rede- 
fina alguns caracteres. Fa9a SAVE 'Tes- 
te" CODE USR "a". 168 (USR "a" e 



10 DIM asue.Si 
20 FOP ''=1 to 10 

2<3 FOR 9 =1 TO 5 

41? LET as i f ,9i =CMRS '30+f*q 

50 NEVT a 

50 1-lE^T r" 



Fi^ra S 



10 lOi='C ChTh as 

20 FOR '=i TO 10 

30 PPINT at I '■"' 

40 NF>- .■ 



Figura 4 



i£ -Q'- I =0 TO 50 

= rOL'ND .55 , f NEXT f 

JO PRINT ■ flleph-' 

30 PRINT "Beit- 

40 FOP f=-6a TO 

50 50UND .£5 . f ■ NEXT i 



SAVE "N 




SAVE "N 


LINE X 


SAVE "N 


CODE X,B 


SAVE "N 
SAVE "N 


SCREENS 
DATA it 


LOAD "N 




LOAD "" 




LOAD "M 


CODE X,B 


LOAD "■' 


CODE 


LOAD "N 
LOAD ■■■' 

LOAD "N 
LOAD ■"■ 


SCREENS 
SCREENS 

DATA X ( ) 
DATA X ( ) 


VERIFY ■ 


N" 


VERIFY • 


" 


VERIFY " 


M" CODE 


VERIFY ■ 


■' CODE 


VERIFY ' 


N" DATA X ( ) 


VERIFY ■ 


" DATA X () 


MERGE "- 
MERGE "h 





- Crava em fita casaete, com nome N, o programa 
en BASIC. 

' GcavB como o anterior, nas com Auto-Start a 
partir da linha X. 

- Grava em fita cassete a pactlr do enderego X 
tantoa bytes quanto indicar B. 

- Grava a tela em fita caseete- 

- Grava em fita cassete os valores da variave! X, 
desde que esta ja esteja dimensionada IX pode 
ser uma variavel alfanumerica ou numerical . 

- Carreqa na roamoria o programa de nome N, que 
deve eatar no cassete e set em BASIC. 

- Carrega na memoria o primeiro programa em BASIC 
que encontrar. 

- Carrega na memoria o programa H, que deve ter 
aido gravado na forma de bytes (Save. . .Code) . 

a partir do enderego X tantoa bytes quanto ind^ 
car B. 

- Carrega como o anterior, mas neste caso, nao e 
especificado N,X e B. 

- Carregs na memoria a tela de nome K. 

- Carrega na memoria a primeira tela que encontrar. 

- Carrega ne memoria oa valores da variavel X. 

- Carrega na memoria o primeiro programa que forng 
;a OS valores de X. 

- Verifica se □ programa de nome N, confete com o 
que esta na memoria. 

- Verifica se o programa contido na memoria conEere 
com o do cassete. 

- Verifica se os bytes gravados com nome B, conferem 
com OB contidos na memoria. 

- Verifica se oa bytea contidos na memoria conferem 
com OS do cassete. 

- Verifica se os valores da variavel gravada com 
nome U conferem com os da memoria. 

- Verifica ae on valores da variavel X conferem com 
OS do cassete. 

- Executa o MERGE de um programa em BASIC. 

- Executa o MERGE do programa de nome N. "emendando- 
o" com o que esta na memoria. 



Figura 5 



Figura 6 

o endere9o onde come9a a tabela de 
caracteres). Depois, verifique se foi gra- 
vado corretamente, desligue computa- 
dor, digite novamente UDG 2, rebobine 
a fita e digite LOAD" " CODE. Agora, 
acabamos de carregar os caracteres es- 
peciais do TK90X (UDGs). ji redefini- 
dos por voce. 

Outro jeito de se gravar a tela e fa- 
zendo SAVE "Upis" SCREENS (Cui- 
dado! N§o hi VERIFY "Upis" SCRE- 
ENS). O SAVE. . .SCREENS e simples- 
mente um resumo do SAVE... QjDE 
1 6384,691 2 (que e a regiSo da tela). 

Existe tambem um meio de so gra- 
varmos OS valores de uma variavel desde 
que esta seja definida (ex.: DIM A (10, 
10)). Para isso, usamos o SAVE "nome 
do arquivo" DATA X ( ), onde X pode 
ser uma varidvel num^rica ou alfanume- 
rica. Digite o programinha da figura 3. 
Terminado o programa, digite SAVE 
"AS" DATA AS( ) e depois fa9a VE- 
RIFY " " DATA AS ( ) . Se a gravafao 
estiver correta, digite NEW e depois o 
programinha da figura 4. Ele devera car- 
regar a variavel AS na sua memoria. Se 
nao houver um dimensionamento da va- 
riavel (para grava9ao), ele acusara o erro 
2. 

MERGE 

TK90X possui ainda o MERGE, 
uma instru9ao que nos permite sobre- 
por programas e funciona da seguinte 
forma: ao carregar o programa, ele vai 
inserindo nos endere90s respectivos as 
novas linhas, sem alterar as demais (o 
MERGE s6 atua na irea do programa 
BASIC). Digite as rotinas da figura 5 e. 



no fim, grave cada uma delas com SAVE 
"UM'eSAVE "DOIS". 

Carregue primeiro programa usan- 
do LOAD "UM" e depois, para carregar 
segundo, digite MERGE "DOIS". Ter- 
minando a execu93o desta instru9ao, ob- 
serve a linha 30 (veja que prevaleceu), 
rebobine a fita para carregarmos o pri- 
meiro programa e digite MERGE "UM". 

A linha 30 foi alterada em ambos os 
casos, porque os dois programas pos- 
suiam linhas 30 diferentes e, no MER- 
GE, a que prevaleceu e a do ultimo pro- 
grama a ser carregado. As linhas ocupam 
sempre uma mesma posi95o seqiiencial 
na memoria, onde MERGE as carrega. 

Resumindo: o SAVE salva progra- 
ma e as vari^veis em fita; LOAD carre- 
ga o programa da fita no computador; 
VERIFY compara se os bytes que fo- 
ram gravados no cassete conferem com 
OS que o computador possui; e MERGE 
carrega um programa no computador, 
sobrepondo-o ao que ja esta na sua me- 
mbria. 

Para digerir todas as informa93es 
dadas ate aqui, seria conveniente que _ 
voce estudasse a tabela da figura 6. ^ 
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SOdTESE DA VOZ 



O aperfeigoamento dos metodos de sintese de voz tern sido notavel 
nos liltimos tempos. Veja neste artigo o que e a voz sintetizada, 
algumas tecnicas existentes e os pros e contras de cada uma delas. 



Sintese da voz 



Frederico Melon! . 



No decorrer dos ultimos anos, a 
tecnologia da si'ntese de voz 
tern se tornado uma das dreas 
de maior crescimento. Isso per- 
que as pesquisas de virias decadas estao 
agora alcan9ando um grau de maturida- 
de, e o rapido crescimento no campo 
LSI permite uma integra^So cada vez 
maior das fun^Oes digitals, reduzindo os 
custos de produ9ao. 

Em 1978, a Texas Instrumentos foi a 
primeira a introduzir um sintetizador de 
voz acompanhado de uma ROM de alta 
densidade para seu produto de consu- 
mo, o Speak ScSpell, que teve um custo 
de processamento de voz drasticamente 
reduzido. Essa tecnologia, devido ao ca- 
samento de processamento da voz e a 
tecnologia dos circuitos integrados, vai 
ocupar um lugar muito importante em 
nossa vida diiria, com aplica96es varian- 
do desde brinquedos ate fomos que fa- 
lam. 

Este artigo visa dar um entendimento 
bdsico do que ^ a voz sintetizada. Para 
isto, iremos primeiro discutir virios me- 
todos de produfSo sint^tica de voz e 
como cada um se relaciona com a for- 
ma93o da voz himiana, saiientando suas 
vantagens e desvantagens. 

PRODU^AO DA VOZ HUMANA 

A voz humana € produzida da seguin- 
te maneira: primeiro, a mensagem i pen- 
sada e transformada em sinais neurais. 
A seguir, geram-se os sons acusticos cor- 
respondentes a estes. sinais e controla-se 
o mecanismo de articula93o para produ- 
zir as fotmas de onda. 
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Figura I 

O proposiio deste nosso artigo e. 
primeiro. discutir como a fala e produ- 
zida pelo mecanismo ariiculatorio e.en- 
t5o, debater as caracten'sticas das for- 
mas de ondas resultantes. Este conhe- 
cimento e especialmente litil para o 
entendimento dos modelos digiiais. 
para os sinais de voz. e de como eies 
podem ser processados e comprimidos 
por varias tecnicas de codifica^ao. 

A figura 1 mostra um diagrama do 
trato vocal, apresentando a localiza^ao 
das cavidades oral e nasal, com seus va- 
ries componentes. 

A voz humana € produzida no tralo 
vocal, o qual consiste de pulmQes, tra- 
qu^ia, laringe, cavidades oral e nasal. 
Outros elementos importantes s3o a lin- 



gua, OS denies e os Idbios. Os pulmOes 
atuam primariamente como uma fonte 
de ar que passa atraves da traqueia, das 
cordas vocais e das cavidades oral ou na- 
sal. As cordas vocais sSo fmas tiras de 
musculos que podem ficar esticadas, 
pela passagem do ar, ou mesmo relaxa- 
das. 

Tres componentes sSo necessarios 
para se produzir a voz humana: primei- 
ro, um fluxo de ar & necessario para se 
colocar em movimento o trato vocal; de- 
pois, um processo de fona9ao na laringe 
(ou cordas vocais) para modificar esse 
fluxo; e, por ultimo, uma articula^ao 
precisa ocorrer para que diferentes sons 
sejam produzidos pelo fluxo de ar. O 
resultado destas a^Oes s3o tres classes 
distintas de sons da voz: sonoros, sur- 
dos e explosives. Classificados como so- 
noros sao OS sons produzidos quando as 
cordas vocais estao tensionadas pela pas- 
sagem do fluxo de ar, gerando impulses 
quase peri6dicos que vSo excitar o trato 
vocal (por exemplo, /i/ na palavra sino). 
Por outro lado, se a cordas vocais esi3o 
relaxadas, e o movimento articidatorio 
causa uma obstru9ao k passagem do ar, 
este se toma turbulento no ponto de 
articula9ao, resultando num tipo de som 
parecido com um chiado (como o /s/ da 
palavra sino). som explosive e criade 
quando se forma imia obstru9ao ao flu- 
xo de ar, gerando tuna pressSo que, 
quando liberada repentinamente, pro- 
duz este tipo de som (isto acontece com 
/p/ na palavra pai). 

Esta ^ uma descri92o apenas superfi- 
cial da produ9ao da voz, pois, quando 
um som e prenunciado, existem cente- 
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nas de varia95es menores que podem 
ocorrer na sua produ9ao. Os sons basi- 
cos, utilizados na ferma9ao de uma lin- 
gua, sao chamados fonemas. Entretanto, 
um mesmo fonema pode vir a ter sons 
diferentes. dependendo do contexto no 
qual ele esti sendo empregado. Um 
exemplo e o caso do /p/ nas palavras es- 
pada e pai. Esta diferen9a do mesmo fo- 
nema e o que se chama alofone. Os alo- 
fones sao representafOes sonoras mais 
apuradas do que os fonemas. 

PROCESSAMENTO DIGITAL DA VOZ 

Um dos fatores que mais contribuiu 
para o rdpido crescimento da tecnologia 
da sintese da voz foi a integra93o de 
todas as fun90es necess^as para se ge- 
rar a voz em um ijnico chip. Entretanto, 
seus sinais sao tipicamente analogicos. 
Como, entSo. eles sao convertidos para 
que possam ser processados pelos com- 
putadores digiiais? 

Um sinal analogico ^ convertido para 
sinal digital empregando-se uma t^cnica 
conhecida por amostragem. Como pode 
ser visto na figura 2, um sinal pode ser 
amostrado periodicamente de maneira 
tal que, retendo-se somente amostras di- 



giiais, 6 possivel reconstruir o sinal origi- 
nal. Isto 6 conhecido como o teorema 
da amostragem de Whittaker Shannon, o 
qual diz que a taxa de amostragem re- 
querida para uma exata reconstru9ao do 
sinal original deve ser, no mi'nimo, duas 
vezes maior que a frequencia do sinal 
original. Por exemplo, se o componente 
de maior frequencia de um sinal for de 
4KHZ, o sinal deve ser amostrado a uma 
taxa minima de 8KHZ. Esta taxa mini- 
ma de amostragem e tambem chamada 
de taxzNyquist do sinal. 

Os sinais digitals sSo mais atrativos 
que OS anal6gicos nos seguintes aspec- 
tos: 

Precisao e confian9a - devido ao proces- 
so de quantiza9ao nos sinais digiiais, eles 
sao menos sensiveis a rui'dos na trans- 
missao do que sinais analogicos. Permi- 
tem tambem a detecfao de erros e a re- 
cupera9ao de informa96es. 

Flexibilidade e processamento - com o 

avan90 dos computadores e micropro- 
cessadores de alta velocidade, os sinais 
digiiais podem ser processados em tem- 
po real e com grande flexibilidade. 

Taxa de dados - e normalmente propor- 
cional ao custo. O processamento digital 
da voz permite remover informa90es re- 
dundanles do sinal analdgjco e. assim, 
reduzir a taxa de dados. 

Qualidade - o processamento digital 
pode remover rui'dos e ecos do sinal de 
voz, aumentando dessa maneira sua qua- 
lidade 

Custo do hardware - a tecnologia LSI 
reduziu drasticamente os custos dos pro- 
cessadores e memorias digiiais, tornan- 
do-os de ficil acesso aos consumidores. 

Uma vez que os sinais estejam amos- 
trados e digitalizados. eles podem ser 
transmitidos direlamente atraves de um 
canal de comunica9ao ou amiazenados 
para uso posterior. Para aumentar a efi- 
ciencia da transmissSo ou reduzir o ta- 
manho da mem6ria no armazenamento, 
um processamento digital i normalmen- 
te feito para comprimir o sinal e reduzir 
a taxa de dados. Isso e chamado de codi- 
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fica9ao da voz. A seguir, apresentaremos 
algumas das tecnicas mais usuais. 

TECNICAS DE 
CODIFICA(;AO DA VOZ 

Existem varias tecnicas disponiveis 
para a codifica9ao da voz. Elas variam 
desde tecnicas de transforma^So direta, 
ou seja, uma simples conversao digital 
da voz. como o PCM. ate compiexos 
modelos matemalicos. como a lecnica 
LPC (codigo de previsSo linear). Para 
o proposito de discussSo. essas tecnicas 
serao divididas em duas categorias: 
codifica9ao de formas de onda e coditi- 
ca93o de parametro. 

A figura 3 mostra algumas das tecni- 
cas mais comuns dentro de cada catego- 
ria. A taxa de transmissao de dados tam- 
bem esti apresenlada para dar uma id^ia 
relaliva ao custo e complexidade de 
cada tecnica. 

Agora, daremos uma visao geral de 
cada tecnica isoladamenle e uma com- 
para9ao enlre elas e as outras. Primeiro, 
serao discutidas as tecnicas de codifica- 
93o de parametros. Assim, o prop6silo 
desta apresenla9ao nSo e entrar em gran- 
des detalhes, mas dar apenas imia visSo 
geral e conhecimentos necessarios para 
se ter um melhor entendimento da tec- 
nologia de sintese da voz. A enfase 
maior, na apresenta9ao que se segue, 
sera sobre as tecnicas de codifica9ao da 
voz sint^tica. Entretanto, a parte de 
an^ise da codifica9ao da voz tem gran- 
de importancia para o entendimento de 
outras tecnicas. como a de reconheci- 
menlo da voz por computador. 



CODIFICA^AO DE FORMAS 
DEONDA 

Este termo foi escolhido para este 
conjunto de tecnicas porque e o que me- 
lhor descreve como a informa9ao esti 
sendo codificada. Em cada um dos sisie- 
mas descritos, o sinal de voz sintelizado 
e produzido a partir de informa96es que 
tentam reproduzir a forma de onda ori- 
ginal. A tecnica de anilise pode descre- 
ver a amplitude de cada ponto de dados 
que foi amostrado. como em Modula9ao 
por Codigos de Pulsos (PCM), ou pode 
descrever cada ponto amostrado em re- 
la9ao a um outro anterior, como em Mo- 
diJa9ao Delta, ou ainda usar a combina- 
93o de varias tecnicas de compressSo, 
como na tecnica desenvolvida por Fo- 
rest Mozer. 

PCM 

uso do PCM e a tecnica mais sim- 
ples de se implementar e se enlender. 
primeiro passo e converter o sinal de 
voz em informa9ao digital, usando um 
conversor A/D. Uma vez na forma digj- ^ 
tal, sinal pode ser guardado em memo- Si^ 



20 



MICRO SISTEMAS. abril/86 



MICRO SISTEMAS. abril/86 



21 



SI'NTESE DA VOZ 



















'xlHM. 1 FKIHO 

« —J p^ss*.■ 

VO? 1 BMX* 


— • 


MO 




















1 










CWIAL Of 

cavHiCAqtLQ 
























L. 


DM 


FILIFM 
« PASSA- 

BAU* 


► WPLIFICA- 
DOH 


'^ 












1 



Figura 4 - Canal de voz porPCM 

ria e ouvido novamente, usando um con- 
versor D/A. um filtro passa-baixa, um 
amplificador e um alto-falante. A figura 
4 mostra um diagrama em biocos sim- 
plificado de um canal de voz usando 
PCM. 

A vantagem deste m^todo e a sua 
simplicidade na anilise, algoritmos e 
hardware. Ambos os conversores s3o fa- 
cilmente conseguidos e relativamente 
baratos. O problema 6 a quantidade de 
mem6ria requerida. 

Neste ponto, e conveniente apresen- 
tar alguns conceitos b^sicos, envolven- 
do taxa de iransmissao de dados {data 
rate). Para uma adequada reprodu9So da 
voz, a resposta de freqiiencia do sistema 
deve ser tal que as freqiiencias abaixo de 
4KHZ sejam reproduzidas e as acima se- 
jam rejeitadas. Em outras palavras, o sis- 
tema deve utilizar um filtro passa-baixa 
de 4 KHZ. Este valor serii adotado para 
uma melhor compara9ao entre as diver- 
sas t^cnJcas. Como jS foi visto anterior- 
mente. usando-se 4KHZ, a freqiiencia 
minima de amostragem sera 8KHZ. O 
niJmero de bits escolhido, para represen- 
tar cada amostra de voz, irl vaiiar entre 
8 e 12, dependendo da qualidade que se 
deseja alcan9ar. A taxa de transmissSo 
resultante seria de 64000 a 96000 bits 
por segundo (BPS). Em outras palavras, 
um segundo de fala iria requerer de 
64000 a 96000 bits de mem6ria. 



CODinCAgAO DE PARAMETROS 

No m^todo codifica9ao de parame- 
tros, outras caracteri'sticas da voz, al6m 
da forma de onda original, sao usadas 
nas an^ises e sfnteses. Essas caracteri'sti- 
cas s3o usadas para controlar um mode- 
lo que visa obter, na sai'da, um sinal de 
voz que nSo e similar ao original, mas 
que cont^m as mesmas informafSes. 

fi importante notar que aqui nao 
existe nenhuma inten^So em reproduzir 
a forma de onda original da voz. Exis- 
tem vSrias t^cnicas que se propOem a 
preencher esta caracten'stica, mas nos 
deteremos somente i descri93o da tecni- 
ca mais utUizada, que e chamada LPC 
(C6digo de PrevisSo Linear). 

LPC pode ser descrito como um 
modelo matem^tico do trato vocal 
humano. Da figura 5, nota-se que os 
parametros usados para controlar o mo- 
delo representam a quantidade de ener- 
gia enviada pelos pulmOes (amplitude), a 
vibra^ao das cordas vocais (freqiiencia 
de vibra?So, decisffo de som surdo/ 
sonoro) e as mudan^as no trato vocal 
(coeficiente de reflexao). modelo da 
tecnica LPC que se lornou padrSo foi o 
LPC- 10, apesar de alguns sistemas terem 
sido desenhados usando o LPC- 12. 
Isto significa que o modelo usa 10 
coeficientes de reflexSo, ou polos, para 
modelar o trato vocal. A taxa de dados 
para o LPC - 1 e tipicamenle entre 1 200 
e 2400 BPS. 

CONSIDERA0ES PARA 
DESENVO LVIMENTO 

Mesmo utilizando t^cnicas iguais, 
como LPC, por exemplo, os circuitos in- 
tegrados sSo desenhados com diferentes 
arquiteturas e processados com tecnolo- 
gias diversas, como indicado na figura 6. 
Ha tres importantes pontos a se levar em 
conta na sele93o da tecnologia de sinte- 
se da voz: custo, flexibihdade e qualida- 
de. Ap6s ter-se estabelecido a aplica^So 
e a performance que o sistema deve ter, 
a minimizag^o de custos toma-se um 
ponto dominante. Por esta razSo, baixa 
taxa de dados para se alcangar boa qua- 
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lidade toma-se o fator principal no de- 
senvoivimento do sistema. A codifica- 
920 de formas de onda pode produzir 
um boa qualidade de voz a uma taxa de 
dados muito maior que codificagao de 
parametros. 

Entre as tecnicas de codificagao de 
parametros, LPC apresenta um meio ter- 
mo entre qualidade e taxa de dados. Es- 
tudos recentes mostram que a taxa de 
dados da tecnica LPC pode ser futura- 
mente reduzida a uma taxa de 850 BPS, 
ainda mantendo uma boa qualidade de 
voz. Isto faz a LPC mais atrativa que as 
outras tecnicas, principalmente em qua- 
lidade e taxa de dados. 

Flexibilidade e um outro fator a se 
considerar. Normahnente, codificagao 
de parametros 6 muito mais flexivel que 
a de forma de onda, devido aos poucos 
numeros de parametros ou variaveis. Por 
raz5es ji apresentadas, LPC se apresenta 
como a solugao ideal. A figura 7 resume 
as vdrias tecnicas de codifica9ao, em re- 
lagSo a taxa de dados (custo) e flexibili- 
dade. 



XeCNICAS DE CONSTRUgAO 

Uma vez escolhida a tecnica de codi- 
fica92o, a tecnica de construgSo da voz 
^ o pr6ximo passo. A construgao da voz 
pode ser alcan9ada atrav^s de tres apro- 
xima96es bdsicas. Primeiro, frases com- 
pletas podem ser guardadas em memo- 
ria, para serem ouvidas mais tarde. Usan- 
do este metodo, a naturalidade e ou- 
tras caracteristicas, inerentes a voz, fi- 
cam preservadas. Contudo. o custo da 
memoria e a flexibilidade do sistema se 
apresentam com grandes dificuldades. 
Todas as frases a serem ditas deverSo es- 
tar em memoria e nSo poder3o ser rea- 
grupadas para formar frases novas. 

Uma segunda tecnica de construgao, 
que aumenta a flexibilidade do sistema, 
6 a concatenacao de palavras. Nesta tec- 
nica, as palavras sao guardadas em me- 
m6ria e conectadas para formar frases. 
Ganha-se em flexibilidade, visto que 
cada palavra 6 guardada s6 uma vez, 
mas podendo ser usada para criar mui- 
tas outras frases. A qualidade, entretan- 
to, e inferior a construgSo de frases, por- 
que palavras, quando postas juntas, 
soam um pouco artificial e sem naturali- 
dade. Este i o resultado de quando as 
palavras sSo usadas em um contexto di- 
ferente daquele em que foram gravadas. 
A flexibilidade mdxima e obtida quando 
as palavras sao quebradas em sens sons 
b^icos, possibilitando a formagao de 
um vocabuldrio ilimitado. Estes sons po- 
deriam ser fonemas, alofones, difones 
etc. Com estas unidades, qualquer frase 
ou palavra pode ser criada. 

MICRO SISTEMAS. abril/86 
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Figura 6 - Fabricantes de circuitos para voz sintetixada 



A quantidade de mem6ria 6 reduzida 
somente ao necessirio, para guardar es- 
tes conjuntos de sons bdsicos, que v5o 
ser usados para criar vocabul^io. Mas 
o resultado e, mais uma vez, artiflcial e 
sem naturalidade. A escolha da tecnica 
de constru^ao deve ser feita entre flexi- 
bilidade, custo da memoria e qualidade 
de voz (naturalidade e Intel igibilidade). 
Tipicamente, quanto mais flexivel for a 
tecnica, menor 6 o custo da memoria e a 
naturalidade do som. Portanto, aumen- 
tar a qualidade implica em maior consu- 
mo de memoria e menor flexibilidade. 
(jeralmente, quando a comunica9ao e o 
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Figura 7 - Comparofdo entre as tecnicas de 
codificofdo de parametros e forma de onda 



objetivo primdrio, a tecnica dos sons ba- 
sicos € a solugao ideal. Ja, quando a na- 
turalidade 6 o objetivo, a constru9ao de 
frases e a escolha. 



Frederico Josti Santos Meloni esta cursando o sexto ano de engenhana na Unimep e trabalha. 
atualmente. como t^nko responsive/ pelo desenvolvimenxo de vocabulario em voz sintetizada, 
na Texas Instrumentos. Fez treinamento no desenvolvimento de sistemas em voz sintetizada em 
Dallas - EUA 
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N0TA10! 



Antes de inscrever-se em qual- 
quer curso de inform^tica, conte 
at6 10. Conheca a escola, os m6- 
todos e equipamentos, Confira 
se o que voce vai aprender bate 
com o que voce realmente preci- 
sa. SENAC-INFORMAtICA 6 
a escola mais completa de Sao 
Paulo. Tern cursos prSticos para 
quern quer aprender a operar, 
programar, conhecer linguagens, 
aplicativos, ou simplesmente, jo- 
gar com o micro. SENAC-IN- 
FORMATICA est^ oferecendo 
10 novos cursos nota 10 da linha 
Sinclair. Escolha o seu e venha 
tirar a prova dos 9. Voce vai con- 
cordar em numero, genero e 
grau! 



IOperapio TK90X e 
Introdu^So ao Basic 
' Sinclair 

2Programaf<Io 
. Basic TK90X 

3, Assembler Z-80 

4. 



Assembler 2-80 
Avanpado 



5. 



Criapao e Programapao 
de Jogos noTKSOX 



6Criapffo e Programa^So 
de Aplicativos 
■ no TK 90X 

7. FORTH no TK90X 

Q_ PROLOG no TK90X 

9Aplicagdes Prof issionais 
. do TK90X 

iQ Logo para Crianpas 



INSCRigOES ABERTAS. 
VAGAS LIMITADAS! 

InformaQoes e Inscripdes: 

Rua Dr. Vila Nova, 228 
Tel.: (011) 255-0066 



senac 



informdtica 






Aplicativos Cibertron 

MICRO SISTEMAS estara anatisando em suas proxtmas edicoes uma 
s6f!e de aplicativos para a linha MSX, langados pela Cibertron Os 
softwares sao: MSX-Word, Planiiha MSX, Banco de Dados e Assembly e 
Desassembly, al6m do Simulador de voo 737 

Estes aplicativos sao vendidos ao preqo de Cz$ 99,90 e podem ser 
encontradps na Amaroson (284-9644) e Magnodata (255-7653), em 
SSo Paulo; e em Sto. Andr6, no Shop Audio & Video (444-6055). 



Otimismo com as novas medidas 



"Estou bastante aiimista 
com as novas medidas econo- 
micas. setor de inform^lica. 
em particular o seior comer- 
cial, s6 tern a ganhar com o 
novo pacote". Assim se posi- 
cionou o gerente da Brasil 
Trade Center Com. e Partict- 
papSes, Manoel D'Assump^ao 
Gomes, em relacao Ss novas 
medidas economicas adotadas 
pelo governo. 

Na opiniaode Manoel D'As- 
sump^ao as mudan^as tarao 
com que a industria volte a 
situapao de poder financiar o 
comfircio, isto 4, aceitar maio- 
res prazos de pagamento. fa- 
zendo com que os estabeleci- 
mentos comerciais possam fi- 
nanciar direto ao consumidor 
final, sem a interferencia do 
setor banc^rio. 

Com essa situagao estabele- 
ctda, o que Manoel considera 
o mais imponanie, as outras 
questdes serSo gradativamente 
resolvidas. "Ainda estamos num 



perfodo de adaptagao, no mo- 
mento os neg6cios estao quase 
todos parados, mas o quadro 
vai mudar daqui a uns 60 
dias," 

Quanto ds mudan^ss mais 
imediatas, como o fim da 
ORTN e o congelamenio de 
precos, Manoel afirma que nao 
o afetaram muito, "Nao based- 
vamos nossos pregos na ORTN 
e. na verdade, jS esiamos com 
OS precos congelados ha algum 
tempo. Segundo ele, existe ati 
Lima tendSncia no setor de 
informSttca dos prepos dos e- 
quipamentos baixarem, ap6s o 
lancamento do produto, na 
medida que a concorrencia 
se torna mats acirrada. 

"AI6m do mais", ressaltou 
Manoel, "o setor de informa- 
tica depende muito do merca- 
do externa e a tendencia 
la fora atualmenie 6 de batxa 
nos precos dos equir>amentos 
e componentes e isso se reflete 
logo no nosso mercado". 



Os vencedores do Enjoy Sampa 
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Para estimular mais a parttcipa- 
cao dos usuarios do CBBS Sampa, 
seu operador Rizieri Magiio deci- 
diu promover um concurso da te- 
las. atravds do sisiema: o Enjoy 
Sampa- 

"Decidimos fazer um concurso 
de telas, com desenhos", conta 
Rizieri, "sem recorrer a caracteres 
grdficos. Desta forma, os usuarios 
teriam que mostrar sua criativida- 
de. B todos poderiam concorrer, 
independente da resolu^ao de seu 
micro. Oai saimos a procura de 
patrocinadores, recebendo desde 
o infcio todo o apoio por parte da 
MICRO SISTEMAS e da Rhede 
Tecnologia, fabricante de mo- 
dems". 

Lan^ado em 23 de setembro, 
juntamente com a Feira de Infor- 



mSlica em Sao Paulo, o certame 
encerrou-se em 31 de dezembro. 
A partir dessa data as telas po- 
diam ser vistas no modulo galeria, 
cada vez que o usudrio do Sampa 
acessasse o sistema. No final 
havia um m6dulo para votapao. 
Assim o julgamento das 11 telas 
apresentadas foi feito pelos pro- 
prios usuarios, cerca de 200.0 sis- 
tema estava programado para evi- 
tar fraudes, detectando se o usud- 
rio \A havia votado ou nao, 
impedindo-o de votar mais de 
uma vez, 

O vencedor, David M.Widman, 
de Sao Paulo, com a tela "COMP- 
MAN", recebeu como premio um 
micromodem especfftco para o 
seu micro, da Rhede Tecnologia. 
O segundo, terceiro e quarto colo- 
cados receberam uma assinatura 
anual de MICRO SISTEMAS. Sao 
eles: Cl^udio Leonardo, com a te- 
la "Saturno"; Wagner Mengarda, 
com "Careca" e Paulo Sergio 
Motta, com "Chiptel". 

Para Riz a experiencia valeu. 
poit 4 precise conscientizar o 
usu^rio de que ele tem inumeras 
formas de participar ativamente 
do ststema, e por isso ele promete 
continuar desenvolvendo ativida- 
des que agitem e estimulem os 
usuarios, como concursos e sor- 
teios. 




Terminals ED'3600 



A Edisa est^ lanpando uma 
nova s6rie de terminais de video, 
a ED -3600. Compatfvel com 
OS atuais modelos ED- 251 T A, 
ED-3620 e ED-3621, a nova s6- 
rie 6 formada por dois modulos 
separados: terminal de video e 
teclado. 

terminal de video opera 
no modo asslncrono e possui 
uma tela de 24 linhas x 80 colu- 
nas, sendo capaz de representar 
at^ 256 caracteres e podendo ser 
utilizado com todos os computa- 
dores das series ED-200 a ED- 
600- 

O teclado A ligado ao terminal 
por um cabo espiralado e possui 
88 teclas. incluindo um teclado 
num^rtco reduztdo e teclas para 
conirole do cursor. As teclas 



tamb^m emitem um sinal audfvel, 
ajustdvel em 3 nfveis de intensida- 
de. 



Show-room ProisajPrologica 



Um novo show-room na Area da informdtica foi inaugurado 
no ABC paulista pela Proisa, revendedor exclusive Prol6gi- 
ca. ligado ao Grupo Comercial Apolindrio. Trabalhando com a 
Prolfigrca desde 1984, o prbximo passo da Proisa deveri ser a 
criagao de um setor de software, mas segundo o presidente do 
Grupo, Isaias Apolindrio, dentro de seis meses o pr6prio show- 
room '\& deverd ser pequeno para atender d demanda. Se vocfi 
quer conferir o endere^:o 6 Rua Jacquey. ABC, Sao Paulo. 



Jornal 

em 
disquete 



A Gavea Software Clube dei- 
xou de editar bimestralmenie seu 
jornal, criando um novo sisiema 
de atendimento ao s6cio, via 
software. 

projeto inclui, al^m dos 
programas em disquetes, um servi- 
fo de informapao que, num pro- 
grama determinado, simulara o 
jornal que antes era entregue em 
folhas fotocopiadas. 

Esse servipo ser^ entregue ao 
usu^rio mensalmente. em sua pr6- 
pria casa, pelo Correio. O valor 
do servipo ser4 de CzS 85,00, \A 
inciu Ido o prepo do disquete. 

AI6m disso os associados do 
clube passarao a receber descon- 
los de 15% na compra de livros 
da Editora Campus. 



I INFORM 

A I Feira de Informitica do 
Triangulo Mineiro - INFORM — 
estar^ acontecendo de 10a 1 3 de 
abril. em Uberaba. Minas Gerais. 

Promovida pela Sucesu do 
Triangulo Mineiro. com organiza- 
fio da Rotal PromcxjSes, e apoio 
da Prefeitura Municipal de Ubera- 
ba. a 1 INFORM reunira fabrican- 
tes e representantes do setor, 
abrangendo desde micros a equi- 
pamentos de grande porte. 

Nos dias 10, 11 e 12 de abril 
serao realizadas palestras sobre: 
Informsitica na Sociedade; Mi- 
crocomputador na Pequena e M^- 
dia Empresa; Inform^tica na Agro- 
pecuaria; O Microcomputador pa- 
ra Profissionais Liberals e Infor- 
m^tica na Administrag^o Publica. 

A mostra ter^ lugar no Pavi- 
Ihao "Henry Ford", a Praca Frei 
Eug^nio, nP 45, Uberaba, diaria- 
menie das 14:00 As 22:00. Os 
ingressos serao vendidos a precos 
simb6licos na entrada do Pavi- 
Ihao 



Buffer de 
impressora 





Murici ^ o novo "buffer" de 
impressora, lan^ado pela Microsol 
Tecnologia, empresa sediada em 
Fortaleza, fabricante dos cart3es 
de expansSo para o CP-500 e 
CP-500/M80.daProl6gica. 

O "buffer" Murici, para im- 
pressoras paralelas, padrao Cen- 
tronics, tem memdria minima de 
64 Kb de RAM, expansi'vel para 
atd 256 Kb; velocidade de recep- 
qSo de dados de 12.000 cps. 
e de transmissao igual a velocida- 
de suportada pela impressora. 
Conta com um modelo exclusivo 
de caixa, nos tons marrom e bege. 
que ji abriga a fonte de alimen- 
ta?ao, parte mais pesada do 
"buffer", Entre suas f undoes, 
visando agilizar o desempenho da 
impressora. estao a de cbpias 
multiplas (de 1 a 65 mil), e as 
fun^des de retroceder, avancer, 
parar, limpar e autoteste. 

O enderepo da Microsol 6 
Rua Almirante Rufino, 779, Vila 
Uniao. Fortaleza, CE, CEP 60420, 
tel.: 1085) 227-5878, telex (085) 
1699 MISO. 



PC/DC 



Visando facilitar a solupao de 
problemas com rotinas contSbeis, 
a WK & WK Sistemas de Compu- 
tap3o Ltda.. estd colocando A dis- 
postpSo dos usudrios de micros 
compatfveis com o IBM-PC, uma 
ferramenta para dinamizar a execu- 
^ao destas rotinas: o PC/DC. 

O PC/DC 6 um software alia- 
mente interativo, permitindo uma 
fdcil consulta, alteragao ou lanca- 
mento de qualquer item, emissao 
de relatdrios, diarios e razao, 
sistema tambSm permite transferir 
dados para outras planilhas eletro- 
nicas como Lotus 1-2-3, dBase 
III e Open Acess. 

O PC/DC custa 175 ORTN e 
tem garantia de seis meses, Maio- 
res informacoes podem ser obti- 
das na WK & WK, na Rua Mai. 
Achilles Gallorti, 1 18 - Vila 
Nova, Blumenau — SC tel ; 
(04731 23-1871. 



MSX: lan^amentos a vista 



Conforme noticiamos na se- 
pao bits da edipao de Janeiro 
a Racimec e Dynacom estao 
entrando para o hall dos fabri- 
cantes do MSX. Apesar de ainda 
nao ter data prevista para o lan- 
camento (talvez na prdxima 
Feira de Informdtica). a Raci- 
mec confirmou que seu micro 
estd em fase de teste, 

JS a Dynacom, tem seu lan- 
camento marcado para abril, 
na UD/86, que acontecera entre 
OS dias 18 e 28, em Sao Paulo. 
equipamento de 8 bits, com 
teclado anatomico profissional 
(separado da UCP, para que o 
usu^rio possa escolher a melhor 
forma de operd-lo), possui mi- 
croprocessador central Z-80: ve- 



locidade (clock) de 3,58 MHX; 
resolucao grafica de 256 x 192 
pontos, com 16 cores simulta- 
neas e sprites; mem6ria ROM 
de 32 Kb e RAM iniciat de 80 
Kb (64 para o usu^rio e 16 para 
o video), podendo chegar, atra- 
v^ de expansdes externas a at£ 
256 Kb. O novo micro tem dois 
slots para conexab de perifdri- 
cos e expansSes; teclas de inse- 
rir e deleter caracteres; funcoes 
programdveis pelo usudrio; ca- 
racteres gr^ficos e acentuacao 
em lingua Portuguese, al6m de 
sai'das para impressoras paralela 
e serial, e conexdes para dudio 
e video. 

Por estar de olho nesta nova 
fatia do mercado, o MX-1600 - 



micro projetado pela Dynacom 
lancado em agosto de 1986 — 
estd em ritmo lento. Segundo 
fonies da empresa, ele esta 
sendo comercializado apenas em 
algumas lojas de Sao Paulo e 
nao tem previsao de chegada ao 
Rio. 

Na linha de software para a 
MSX, a Plansoft, empresa paulis- 
ta, colocou no mercado 
aplicativos de conta a pagar, a 
receber e ftnancas domftsttcas. 
Em jogos, a software-house lan- 
cou uma s^rie especial que inclui 
simulador de voo, xadrez e aven- 
tura submarina. al6m de dez 
games pack, com dois jogos 
cada um. 



Hotbit acessa Videotexto 



Os usuarios de Hotbit ja po- 
dem acessar os services de Video- 
texto. da Telesp, e Cirandao da 
Embratel. A Epcom/Sharp estd 
lancando no mercado, um cartu- 
cho reunindo interface padrao 
RS 232 e softwares para ligacao 
com Videotexto e com outros 
micros. Segundo Josd MArio Fon- 
seca, gerente de Marketing em 
automac^o, a empresa espera ven- 
der 20 mil unidades do cartucho 
em 1986, uma vez que o consumi- 
dor poderS desfrutar de todas as 
vantagens de um micro, por um 
investimento semelhante ao que 
faria para possuir o terminal e 
configuracao b^sica necess^ria pa- 



ra acessar ao Videotexto, pelo sis- 
tema usual. 

Outro perif6rico disponlvel 6 o 
HB-2400, um data record, ou gra- 
vador de dados, com sistema mo- 
nitor de som, comandos exclusi- 
vos phase system, e ajuste especial 
de ganho. O equipamento aumen- 
ta a confiabilidade na leitura e 
gravaccio de dados em fita cassete. 
tendo sido desenvolvido justamen- 
te para aplicacdes pessoais e do- 
m^sticas, e no segundo semestre 
deveri contar tambftm com disk- 
drive. A expBctativa para 1986 6 
atender a 30% das 50 mil unida- 
des de Hotbit que a empresa es- 
pera comercializar esse ano. 



Troca de programas em BASIC 

Criado em Rio Claro, no interior de Sao Paulo, o "Basic Computer 
Clube". estd aceitando associados ou interessados na troca de programas 
em Basic para micros Sinclair, TRS 80. TRS Color, Apple e compatl- 
vets. Para maiores informac^es basta escrever para o "Basic Computer 
Clube", Rua 1 , Part, n 98 , Centro, Rio Claro. Sao Paulo, CEP 13.500, 



MX850 na 
Souza Cruz 



A Cia. de Cigarros Souza Cruz 
e a Elebra Computadores concre- 
ttzaram uma negociacab de grande 
porta envolvendo cinco supermi- 
nis MX850. Estes computadores 
substituirao os minicomputadores 
usados pela Souza Cruz e trarao 
maior performance do sistema. 

A primeira unidade do MX850 
foi instalada no ultimo mes em 
Blumenau e a Elebra insialar^ 
OS outros 4 computadores at6 o 
mes de agosto. Posteriormente 
o acordo preve a interligacao de 
todos OS MX850 com os computa- 
dores IBM localizados na S^uza 
Cruz no Rio de Janeiro. 

MX850 6 um supermini de 
32 bits baseado na tecnologia do 
VAX 11/750 e possui diversos 
recursos para processamento de 
programas voltados para aplica- 
Coes comerciais. 



De olho na Argentina 



"0 Brasil estS divisionan- 
do um oponuno aliado no he- 
misfdrio sul, no setor de in- 
form^ica: a Argentina. E a 
reclprocs parece ser verdadei- 
ra. Seja como for, existe 
atualmente toda uma movi- 
mentapao envolvendo os dois 
palses tanto na ^rea de desen- 
volvimento tecnol6gico e cien- 
tlfico quanto no setor de pro- 
ducao e comerciatizacao na 
drea de software. 

Principalmente no setor 
ttenico-cientlfico o entendj- 
mento esti bastanie avancado. 
Desde Janeiro de 85, quando 
foi formado um grupo bilate- 
ral respons^vel por esse proje- 
to, OS trabalhos ja avancaram 



muito, culminando com a rea- 
lizacao, em fevereiro ultimo, 
do EBAI - Escola Brasileira- 
Argentina de Inform^tica. 

A EBAI, que aldm de mi- 
nistrar um curso com alunos 
e professores dos dois palses, 
deixou como saldo positive 
uma s^rie de temas de pesqui- 
sa que deverao se constituir 
em projetos a serem aprovados 
pela SEI e pela Secretaria 
de Informdiica da Argentina. 

O respensdvel no Brasil pe- 
lo projeto 6 o professor Car- 
los Jos6 Pereira de Lucena, 
titular do departamento de in- 
formitica da PUC- RJ. Ao 
fazer um balance da situacao 
atual, Lucena declarou que ati 



meio do ano de 86 os pro- 
jetos de cooperacao cientlfica 
\i deverao ter sido apreciados 
pelas secretarias dos dois pal- 
ses. AI6m disso, foram forma- 
dos seis grupos de trabaihe 
que estao acompanhando de 
perto todo o processo. Com a 
selecao dos projetos. esses 
grupos irao partir para a fase 
de execucSo, arregimentando 
inclusive os estudantes da 
EBAI. 

Paralelamente, tudo estS 
sendo preparado para }ue no 
infcio do proximo ano seja 
realizada na Argentina a segun- 
da E8A1, formando dessa ma- 
neira um intercambio perma- 
nente. 
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As atracoes do Micro Festival 86 



Sem sombra de diividas as 
grandes atrac5es do Micro- Festi- 
val realizado de 19 a 22 de mar^o, 
no Rio de Janeiro, concentraram- 
se na 6rea de PCXTs. A maior par- 
te das grandes empresas que estao 
nesse seior optaram per seguir o 
padrSo IBM. Uma excepao 6 a 
carioca Cobra que preferiu aper- 
feipoar sua linha apresentando o 
seu conhecido Cobra 210 com a 
interface multiplexadora assi'ncro- 
na Micromux, o sistema operacio- 
nal MMP-Monitor Multiprograma- 
do, funcionsndo como telex ete- 
trftnico. A Micromux permite 
ao Cobra 210 ligapao adicionai de 
at6 quatro Hnhas assfncronas, ex- 
pandindo o numero mdximo de 
terminais de dois para seis. A Co- 
bra esti lan^ando tambfem mais 
dois terminais da linha TR , o 
206 e o 278, que emulam termi- 
nais IBM 3278, e ainda podemvi- 
rar o Cobra 210 com a troca da 
ptaca base. 

A Microtec apresentou o XT 
2002 incorporarido o software 
VP- Planner, da Paperback Soft- 
ware International, fundada por 
Adam Osborne e representada no 
Brasil pela Vista Tecnologia. 
VP-Ptanner 6 totalmente compa- 
ifvel com o Lotus 1-2-3 e vem 
com banco de dados multidi- 
mensional e abertura de at6 seis 
janelas na tela, com o pre?o de 
Cz$ 4 mil e 700, s6 que os usuS- 
rios de XT 2002 nao pagam a 
mais por ele. Aldm disso, a Micro- 
tec vat colocar no mercado uma 
s6rie especial de XT 2002 com re- 
cursos adicionais: clock de 8 MHz, 
o que significa um aumento de 
desempenho da ordem de 67%; 
membria RAM de 736 Kb; e 
mais uma ptaca controladora de 
atd quatro unidades de disco fle- 
xi'veis de 5 1 /4" e outra de at6 
duas unidades de Winchester, de 
10 a 140 Mb. Esse s6rie especial 
de XT 2002 serS comercializada 
por CzS 12 mil a mais do que a 
normal. 

A Medtdata reservou para o 
Micro Festival o lan^amento do 
M-XT, compatlvel com o PC/ 
XT, com oito slots de expansao 
e 640 Kb de mem6ria RAM, 
al6m da op^ao de operar como 
um micro de 8 bits, com CP/M- 
80 e com o sistema MUMPS. 

A Troppus tamb^m lan^ou um 
XT, visando atender principal- 
mente os usudrios da rede Tro- 
ppus. Apresentou air>da uma rede 
privada de Videotexto. a Troppus 
VN 1000. viabilizando aplica^des 
de comunicacao de dados em ge- 
ral, como correio eletronico e 
registrode resposta ao usudrio. 

O Sector XT marcou sua pre- 
sen^a no Festival como um novo 
representante da linha de 16 bits, 
f^ricado pela paulista Sector, 
originada da cisao. em agosto de 
85, da Softec, fabricante do 
Ego. Sector XT admite o uso 
de sistema operacional Analix. 
multiusudrio e. nesie ambiente, 
permite a ligagao de at6 oito ter- 
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minais assfncronos. pre?o da 
configurapao bMica 6 de CzS ... 
145 mil. A Sector apresentou 
ainda opgdes de rede, topologis 
de barra, adquiridas em OEM da 
Cetus e da empresa paulista NCT 
(PC-Net). 

Na ^rea dos micros compatf- 
vets com a Itnha Apple foram poo- 
cas as novidades. A Uniiron apre- 
sentou OS seus Tl-Calc e Tl-Tex- 
to ligados ao concentrador Intelex 
da Tandem Tecnologia, um paco- 
te complete de hardware e soft- 
ware para conexao ^ rede telex, 
e a interface Embramic 4000, da 
Embramic de Porto Alegre, tam- 
b^m emulando telex. 

As novidades da Unitron ficam 
por conts da conftrma^ao, por seu 
diretor Comercial, Geraldo Aniu- 
nes de Azevedo, do langamento 
do primeiro Macintosh brasileiro, 
para o final do mes de maio. Com 
o nome definitivo de Mac 512, 
o modelo da Unttron vird munido 
de tectado num6rico separado — o 
mesmo utilizado na configuragao 
do Tl-Calc; membria inicial de 
512 Kb, com possibilidade de ex- 
pansao at6 4 Mb por superposi^ao 
de placas e uma unidade de dri- 
ve de 3,5" com capacidade de 
800 Kb. A empresa planejou um 
lote inicial de 200 mfiquinas para 
OS primeiros seis meses e preter>de 
estabilizar a produ^ao mensal en- 
tre 300 e 500 equipamentos. de 
acordo com a demarxJa do merca- 
do. Para o primeiro lote de pro- 
du^ao, a Unitron importou as uni- 
dades de drive da Sony. J^ o mou- 
se e o monitor de 9" serao fabri- 
cados pela prbpria empresa. 

Na faixa dos micros pessoais, 
como aconteceu na ultima Feira 
de InformStica no Anhembi, os 
stands mais concorridos eram os 
da Gradiente e da Sharp, com o 
Expert e o Hot Bit, da linha 
MSX. Na Sharp, destacamos o Ian- 
famento do gravador HB-2400, 
especialmente projetado para uso 
dos micros e ainda a interface de 
comunicatao HB-3000, um canu- 
cho que permite conectar via li- 
nha lelefonica um Hot Bit ao 
Videotexto ou Cirandlio. 



A Gradiente mostrou em seu 
stand um drive de 5 1/4" FS/DD 
com capacidade para 180 Kb la 
ser lan^ado em junho) e outro 
drive de 3,5" com capacidade de 
360 Kb (a ser lan^ado no ini'cio 
de 1987). £ interessante observer 
que a interface usada tem capaci- 
dade para dois drives e serve tan- 
to para o modelo de 3,5". como 
para o de 5 1 /4", 

A CP Computadores, fabrican- 
te de micros de uso pessoal, nao 
apresentou novidades, limitando- 
se a expor o CP 200S; o CP 400 
Color, alids o unico micro compa- 
tfvel com o TRS-Color presente 
na exposigao e o CP 500 M-80. 
que brevemente terd seu design al- 
terado, mais compacto. A CCE 
demonstrava o micro MC-1000 e 
a Microdigital foi a grande auserv 
te. 

SOFTWARE 

O segmenta de software pros- 
segue concentrando-se cada vez 
mais na linha de 16 bits, notada- 
mente na drea de pacotes de uso 
geral, como as planilhas, processa- 
dores de texto e gerenciadores de 
bancos de dados. 

A grande novidade na drea das 
planilhas eletrdnicas 6 a-versao 
2.0 do Lotus. . . em portugues. 
langamento veio da empresa 
carioca PC-Software, e o pacote 
chama-se Samba. Trata-se de um 
sistema integrado identico ao 
1-2-3 e dentre as vantagens apre- 
sentadas em retapao a versao 1. A 
do Lotus, a mais usada no Brasil. 
figuram acentuac:ao natural; maior 
facilidade na impressao de grifi- 
cos e transfergncia de arqurvos; 
alocagao dinamica de membria; 
compatibilidade com processador 
aritm^tico 8087; manual compac- 
to em Portugufts; curso edisquete 
de demonstrapao gratuitos. pre- 
Qo fica em torno de Cz$ 7 mil 
450. Tamb6m da PC-Software 
veio uma nova versao do proces- 
sador de texto A-B-C com memb- 
ria duplicada; novo lay-out te- 
la e mbduJos de edi^ao e impres- 
sao unificados. A empresa tem 



pianos de baixar o pre^o do A-B- 
C para CzS 5 mil 320. 

A Brasoft lanfou a versao 
2000 do Wordstar. Em portugues 
fluente, inclusive os comandos 
mnembnicos; com janefas para 
at6 trfis documentos na mesma 
tela; operacoes de cdlculo em 
tempo de edicao; comar>do sort e 
dicionSrio ingl§s-portugu6s atuali- 
zado. o Wordstar 2000 estS sendo 
comercializado por CzS 15 mil 
963. 

Na drea de gerenciadores de 
banco de dados, a Soft apresentou 
o seu Dialog, em versao para XT. 
Compat(vel com o dBase III. o 
Dialog XT traz novos comandos 
,e fun^bes, analise de programagao 
mais apurada e correcao simplifi- 
cada. Ele serS oferecido em duas 
versoes, portugues e ingles, ao pre- 
C:ode Cz$ 12 mil. 

Outro gerenciador langado foi 
o R: Base 5000, da Microsoft Cor- 
poration, representada no Brasil 
pela Compucenter, que traz como 
inovagbes um compilador interno. 
o RB Compiler; um gerador au- 
tomStico de aplicaijbes - Aplica- 
tion Express; entrada de dados 
definfvel pelo usuirio; I'ndice 
autom^tico de manutencao e Cha- 
ves. prego do R : Base 5000 6 de 
CzS 19 mil 500. A Compucenter 
mostrou ainda o Windows, tam- 
b6m da Microsoft, um software 
bdsico que cria um ambiente 
operacional capaz de permitir o 
processamento. sob MS-DPS/PC- 
DOS, de vSrios programas no 
mesmo tempo, transferindo dados 
entre eles. O WirxJows custa 
CzS 3 mil 800. 

A Intercomp mostrou tamb^m 
um lan^amento na Srea de geren- 
cia de banco de dados, o Dataf lex, 
para CP/M e 16 bits. O Dataflex 
6 multiusudrio e uma das princi- 
pals caracteri'sticas do produto 6 
a flexibilidade. rodando sob diver- 
sos sistemas operacionais, entre 
eles o MS-DOS, IBM-PC DOS. PC 
Net, CP/M e CP/M-86, NP/M- 
86 e Turbo DOS. Para maio a 
Intercomp promeie incorporar ao 
Dataflex um gerador de grificos 
e fungbes matemdticas coproces- 
sadas. 

A Datalbgica. representante da 
Ashton Tate no Brasil, reservou 
para o Festival o langamento de 
livros de Treinamento Programa- 
do com disquete dos softs dBase 
1 1 . Dbase III e F ramework, ao 
prefo de CzS 390 cada. 

Por falar em edi<;ao. tambfim fa- 
zendo bastanie sucesso no evento, a 
editora Ompus apresentou diversos 
de seus mais recentes langamen- 
tos, como o "Inteligencia Artifi- 
cial em BASIC", de Mike James. 
"Linguagem de Programacao pa- 
ra Micros", de Garry Marshal; 
"MUMPS", de Mauro de Castro 
Lobo e "Visitrend/Visiploi", de 
auiorla de Raul Udo Christimann. 
colaborador da revista MICRO 
SISTEMAS. que alids participava 
do stand da Campus promovendo _ 
vendas de assinaturas. ^ 
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Traia-se Oe um srsiema ancicor^osiwo e anuabr^ivo corm resina pra- 
duzida sob av^niQ&dd I'S^^nnlQgia nos Esfados Unidos, JapSo e agora 

f\o Bras^l- 

SUAS PFIINCIPAIS VANTAGENS 

• excepctonai reaist^ncia a ataqves quimkos e stuaskvos^ 

• cuca f^p([ta. entregandQ a area revestida em poucaa horas ao tri 
tego de emptlbBclBiiFB3: 

• exceHeniB aricoragem - cc^tictenie de es^pansflo iguar ao do con- 
crete. lofnando-sB monotitica com a base: ssm apressntar irincaa 
ao longci da utilizaQAc; 

< Bxcepcjonais re'S^&l^nciias quimhcas. (mal& de 250 prpquios qulmi- 
CQSl; 

• eKcepcHinalB resislfincias rrwcS/iicas (irnpactP. compressAo, Me- 
xio e abra&ao|i: 

• nau^sgldade da piso aniHJt^rrapante. 

" lAcil Umpeza, ndo parmtikndo o desenvolvlmenTo de bactdnae pa' 
iog^icsL^, virus a lunyos:; 

• lernperatura dB apllcag4o dosde - 30^C al6 m°C, n9o eKhglndo 
parada da ^raa operacionan 
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Produzl(3a Q Distnibuida no Brasil paia 

REVESTIMENTOS POLVPLEX INTERNACIONAL LTDA. 

Av, sao Luiz, lfl7 - 2* sobfeloja ■ loja 2& 

Q1046 Sio Paolo ■ SP • Fone: (Oil) 256-6609 - Telflu; (tJl1) 5372S 




Toque musica no seu micro 



SISTEMAS ANTICORROSIVOS 
DE RESINA QUANTUM 



ONDE SE APLICA 

> pises de industrial qulmjcas, alirniertl[cka&, elatrD-aletrbnlcas. aih 

lomobiirslicas, petroqulmicas, armaz^ns. supermercado^r hanga- 

res. ofJclnas mecAnlcasi 
■ sinalizapac de ir^faoo e de ftieas Indoslrlais Qxpostas a condk 

c;6e5 citmaticas, alaQueS' qylmlcos e rrrficdinicos; 
« lanques de ccncraio Du a4;^i;>; 

« esgoEos « elluentes induslr^ala, municipals a reeJii^nclBls: 
• jmpermfiabiiiza^ao de paredea, pJsos. tanquea a lofres de concre- 

to com irmcas em sua estrulura. 



COMO SE APLICA 

A Heaina Polymdrtlca Quanium pode ssf aplicaida na fofma de pln- 
tura com phnc^ls, brochas, roloa, pistola dols componenies. on na 
Forma de argama?^ quando a fesina ^ aglomerada com' arela silica 
classfticada, 



Ah Morato 



programa permite a concatenaQao de notas musicals, para 
musicas muito simples, no CP-500. Este processo tamb6m 
pode ser empregado em outros programas atrav6s da utilizacao 
da string MUS, com as retinas citadas nas instrugoes do pr6- 
prio programa ou atraves de instrui;»es DATA com os niimeros 
fornecidos pelo mesmo. emprego da string 6 mais simples. 



facilitando a digita?ao e otimizando as retinas de gravagao em 
disco ou fita. Caso se deseje, pode-se modificar as dura?6es e 
notasdisponfveisdeacordocomoseu conhecimento de musica. 

Ari Morato possui um CP-500, hS cerca de um ano, e 4 funcionirio do 
Departamento de Engenharia Industrial da Usiminas, no cargo de T6c- 
nico em An4lises Industrials. 




2 '•• OtHflMU'.i-'nAfi • Pro^raWB Gpradur Hustcal p»r» CP-500 •• 

3 '■• A-itori ftr t Morato - Fonit (03ll 92i-6*4A •» 
A ■•• r:»lxn Po«(:»l 238 - Ho'fo - 35. lAO • IpXInj* - MO •• 

r, •.••••■■■•••■•■(■••••••••■■•••••■■■■■•■■'•"•"•"■•"■•••■■■■•■» 

L'O DlHNO<i^r,5»5 [lD=li.'2aB i«-STBIND»l63,filH QOStlB iUSO i GOTO 90 

3(1 CiaiPRINT" ■"• nEHfiMUa/BA5 "■i> Art HoratD •■• OS.10.B3 

-••~iPRINTA4!PBINT"PHINT"EstF PFograas perwite a conpdBlcao de 
rtillii»s lie son pi.f* o 5P'i CP-50D." 

^n PRIMfVorr poitirii' iitar e&sas rntitiai tm seiis pragramaa, in%e 
rindci «M (nttnicae* OOTft. ns i/alorpa llilartcs pelo coaando < , >" 
50 PBINT-D-i «ntso <it ilCando • string MU». 1 l»(«da pel a 1 lnh» 54 
a.- 1 PHIHt"Ne6t» caso, tera' nrcesaarli •«■ convprsao pcia rot I 
na coni Ida na« llnha 820 a 990." 

AO PBIN1"A roHna Uc snm esta' na* 1 Inhas 1030 a iOBO." : PBINT" 
A rhanada da USB sera' T^.ta psia rol ina das 1 Inhas 3B0 a *?0." 
70 PBINTiPBl«I''NaD prpr ina pratrgnr aeMorla 1 Me«.llsada7<eNTEB ) 1" 
iPHINT"! igiip • •alda 'MIC* do coapulador ao A»pl t f icador' 
lit) nOSlIB 1000 

90 C1.5 iPRlNt" .■••• CERADOR MUSICAL ■»■••" 

iPRIMTASiPRlNl 

ItIO PfllNTIAfldSl' < ENTER >",1A8<2S)" TOCAR-i PBIHTTAB* 15)" < S 
!■ ,TAH<r5)" INSTBUC0E5" = PBINTTABl 15)" < . >-iIA9(25)" LISTAB N 
OTAS"< PBINIIfladSr' ( CLEAB >-'rTABi251" FIM OE PBOGBAMA" i PHIN 
TTABdSr I 5 )",IAe(?5)- GHAyAR EM DISKETTE OU FITA" 
ilO PRINTTAB<15)" < 4 l" , IAB<£5) " RECUPERAH DO DISKETTE OU FlIA" 
!PRINTTAB1151" < 1 >"t lABtSSI" COMPOH" 
l^-Q PRINT tPRlHT'Tac* sii« cscolha" 

130 IFPEEKII-IOnOl^lTHENa/n ELBE:FPEEK(14400»»2THEM60 ELSEIFPE 
FI'(M3fla>-16THEN*?f) ELSEIFPEEK ( I 4352 1.32THEN430 

140 IFPLEK<1435?i»64THFN55a ELSE tFPEEK ( 14337 1-ITHEN3D ELSEIFP 
FFKn43F.r>=>3rHEH150 ELSE 130 

150 CLSlPRINt" GEBADOR MUSICAL " 

iPRINTAtiPRlNT 

1.^0 PH1NTIAB«?0)~NOIAB DISPOHIWEIS-sPR INT 

I'O PHINTIABl2n)"A = DO", lAB (35)~M ■ OOM" iPR INTTAfl (20 >"S ■ flE"iT 

An<3Si-'E • REI«"lPBrNTTA9tS0>"0 - HI"iPB IMITAB < ?0)--F ■> FA-ilABOS 

1-H ' Ffl>t'>PBINTTAet2Q)"G • 60L":TAB( 35)'-T - SOLU" tPB JHtlAB (201" 

H ■ LA ',IAB<35i"V - LAIf'iPHINTTAB <EO)"J - 81" 

Ifld PfilNT'Para Bfiterrar ma coDipoSlcaa, t«cl* O m.eero Q" « MU»" 

190 FOB J - I to ?5S t IF J-25S IMEN N0(JC»99 i KS-"""i GOTO 36 

O 

200 IF PFEK114337»=2 TMEN N0(J»-145 ' Kl="A-i 0010350 

?10 rF WEK( 143401-ine THEN N0(.l>"135 J KS-'W": Q0T035O 

?20 IF PEFKI 143401=9 THEN N0fJ)"129 i K»-"S"i BOTOSSQ 

230 IF PEEKll4337>-32 TMEN N0fJ)=l22 i KS-'E-t B0T035O 

240 fF PEEK<1433?I-16 THEN N0(J)-115 ' «$*"D"« G0T035Q 

SSn IF PEEK (1433X1 '64 THEN NO(J)"tDB t Ki-"F-i 60T03SO 

240 IF PEEK<14340>-4 tHEN N0(.J1»109 i t(*-"H"' G0T0350 

.?70 IF PEEK(14337)-iae TMEN NOt.ll'?? i IC*-"6"t B0T035O 

290 IF PEE((U4340t-l6 THEM W0l.ll«92 i K*-"T"i GOT03SO 

?90 IF PEEK( 14339)=! THEM N0IJ>-9A i KS="H~i Q6I03SO 

300 IF PLEK*14344).2 THEN N0IJ)>R1 : Kt-'Vi 00T0350 

310 IF PFEI<(14339)-4 THEN N0(J>«77 i K\-'"J~t GOTOSSO 

320 IFPEEKf l*3&a)-l THEN N0(J)«999 i KJ."»"i J-255 t OQJO 360 

330 IFPrEKC14400)«12B THEN NO(J)"500 i Ki^"-"" PRINT NOIJ). t QO 

TO-J/ifl 

340 QOIOSOn 

35D )("USB(HOiJ»fDD> 

360 HKt-KKH-K* i NEKT .1 I Mlrt-KK* i GOHUB 1110 : GOSUB 1000 i GO 

TO 70 

370 IF J-0 THEN CI 81 PBINT "BUFFER UA7I0..."i GOSUBIOQQ i 80T090 

360 FOB J ■ 1T0255 i IF NO(J) - 999 THEN J-!S5 = GOTO 420 

,190 IFPEEKt t44aUI = ?IHEN4A0 

400 IF N0(.l>-50n THEN F0BZ<>lT0SiNEXTZtG0T04S0 

410 lc>>USI)<NO(J1*DP> 

420 NEXI ,1 J GOTO 90 

430 If J^n THEN CI SI PR INT-flllFFER WA?IO..."t QOSUBinOO I Q0T090 

440 ClSi INPUI-ORAVAB (SAVE) EM <DHSKETTE Oil (F)!TA"(D« 
4S0 ir P«=-r>" IHEN f.BO ELSE IF 0»-~F- THEN 7t.n ELSE 440 



460 PBINT-FIM DE PROGRAMfi' sEND 

470 IF J-0 THEN CL51 PR INI "BUFFEH WAZIO. . . ■ iBOSIIB lOOfl t GOT090 

4B0 ClSiPHlNT"ESTAS SAO AS COMBINACOES UTILUflOAS NESTA MUSICfli" 

tPRINTAl! FOB J.|T0255f PBINI NOl.J),: IF N0(J>-999 IHEH J»235 » 

BOTO 530 

490 IF J>52 THEN GOSUB 1000 

500 TF j=104 THEN OOSUB 1000 

510 IF J»156 THEN GOSUB 1000 

520 IF .J-208 TMEN GOSUB 1000 

530 NEXTJ I PRINT 

540 PRINT Milt 1 eOHUfl 1000 t BOTO 90 

550 ri-SslF.J< )0IHEMINPUI"HA* DAOOa NO BUFFER. CONTINIIO (S/N)'-jPti 

1FPS="N'THEN90 ELSE IF Pi<)"S"THFN 550 

560 CLS ! INPUT-RECUPEBAH <L0AI)1 OE (OUSKETIE OU iFHTA-'jD* 

570 IFD^'-D" THEN670 ELSE IF Ol'-F'THEN 790 EISE560 

5B0 CLS ■■ PRINT" .-.,r=-=i GHAyAR EM PISKEITE" 

590 INPUT "MUSIC NUHERO"|R 

600 B»=STR4(B) I BL-LENlB5> » ftT»=RIGHT» (R». RL-1 1 

610 NOM» • "MUSIC" * RT* 

620 OPEN 'O-.l.NOM* 

«30 CLSiPRINT NOH« 

640 PRINT I PHIHT-BHAUANDO" 

650 PRINTHl, MUt 

660 CLOSE : GOSUBIOOO ! GOT090 

670 CLS i PBINT" <=....— > CABREOAR 00 OISKETTE" 

680 INPUT "MUSIC NUMEBCfR 

690 H«-STR4tB> i HfLENtRt) i RT$"R lOMTK B», RL-1 > 

700 NOM* - "MIISIL" • BT* 

710 0PEN"I",1, NOMS 

72U CLB 1 PfilNT NOM* 

730 PRINT I PRINT -LFNDO- 

740 INPUIHI , MU4 

750 CLOSE 1 BOTO 620 

760 CI.9IPR1HT- ..«-) ORaUAR EM FITA">Pfl INTi INPUT-Cas» ( 

l.B_ 2-A>";ys IFUtl OR y)2 THEN/60 

770 POKE 16913. W-1 i PRINT iPR INT 'PRFPARE GBAyADOB EM ■RECOBO'-'H 

NPU1"TECLE <ENTER> OIIANDO PRONTO. "iT* 

790 PRINTlPRlMT-OBAyANOO- i PfilNTH-l, Hill : GOSUB 1000 1 GOTO 90 

790 CLSiPBINT" .--..1 CAHBEGAB OE F I IA"IPfl INT J INPUr~Ca 

ss H-B. 2-A»"tyi IFV<1 OR y)i' MIEN 790 

aOO POKE 16913, V-1 ' PBINI iPBINI' PHEPABE OBAWAOOB EM 'PUAT'-ilNP 

UT-TECLE (ENTEBt aUANDO PBONTO'tl* i MUl*"" 

810 PBINT:PHINl''CABREOftNOO"!lNPUIH-l , MU« 

830 PBINIlPBlNfCOMyKBTENOO STBINOE" 

630 F0HJ=1 TO LENimi*> 

B4U K4=M1D»<MU*, J, I > 

eSO IF KI'-'A" TMFH NO' 11 » I 4"^ > r.OTfl 90n 

860 IF Ki""U" IHEN NOi J) = 135 i UOIO 990 

B70 IF K»-"S'- THEN NO(,l> * 129 i GOTO 9911 

BBO IF Kl=-E" IHEN NIKJ* • 123 i liOTO 990 

B90 IF •(4--D~ THEN N0(J1 = 115 i GOTO 990 

900 IF K*='F" THEN NO<J» = I OS 1 GOTO 990 

910 IF Ki-"R" THEN NO<J> ' 102 i GOTO 990 

920 IF K»»"0- THEN NO(J) = 97 i GOTO 990 

930 IF K«""T" THEN NO<J) = 92 i GOTO 990 

940 IF Kl-'-'H" THEN NOtJl = 86 < GOTO 990 

950 IF K«-"V" THEN N0(.I1 = 81 1 HOTO 990 

960 IF K(-".l" IHFN HO'.I) • 77 > BOTO 990 

970 IF Kl""«" IHEN NO(J) = 999 I GOTO 990 

980 IF K*"--" IHF-N MO<,l> ■ 500 

990 NEKT : BOTO 90 

1000 PRINTa9e8,-'PRE3SI0NE < ENTER > PABA CONTIHUAB't 

iOlO lFPEEK(l«400)-lTHENflETIIRN ELSEIDID 

1050 '■■•■••■ROTINA 

1030 MS-"1234S678901234567B90123- 

1040 U ■ VAfiPTB(M*li LS • PtEKlU+l)i MB = PEEI£(M*2)> t ■2S6aMS+LS 

1050 IF PEEK<16396)-20ITMENP0KP 16S26 ,L5iP0KE 16527. M8iflOT01O7D 

1060 DEFUSR " L«IL )32747)a65536 

1070 FORI = LT0L*32 I READSi POKE H 1 1 )32767 1 •65536,81 NE)(TI 

I08D RETURN 

1090 DATA 205,127.10,203.36,69,62,1.211,355,16,254 

1100 DATA 69,62,2,211,255,16.234.37,32,239,201 

HID CLSI PBINT-'BUFFFB CHEIO.,.": BE1IIBN 



Cerador musical 
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Type para o Apple 



Antonio Carlos Salgado Guimaraes 



Quem utiliza o CP/M sabc da 
importancia que o comando TYPE 
possui, pots atraves dele e possi- 
vel examinar-se o contcudo de ar- 
qutvos sem a necessidadc do uso 
de editores de texto. Por exem- 
plo, para sc vcriTicai o contcudo 
do arquivo CONTA.BAS. seria 
necess^io apenas dar o comando 
TYPE CONTAiAS e este arqui- 
vo seria apresentado na tela. 

O Applesoft n^o possui este 
comando, ja que arquivos do tipo 
A (BASIC) e B (Binario) podem 
ser examinados de maneira sim- 
ples, seja bstando-os, como € o 
caso dos aiquivos de piogramas 
em BASIC ou via Monitor, como 
OS Binarios. 

Entretanto, a ausencia deste 
comando no Applesoft pode cau- 
sar algumas dores-de-cabe^a e 
um pouco de tiabalho, pois se 
desejarmos verificar o conteiido 
de um arquivo do tipo T (Texto), 
nao encontraremos nenhum co- 
mando que nos ajude e teremos 
ainda que utilizar um editor de 



dois programas, um em BASIC 
(lislagem 1) e outro em Assembler 
(listagem 2). O programa em 
BASIC e que faz a pane pesada 
do trabalho e o em Assembler 
serve para carregar o programa 
em BASIC para a memoria e 
roda-lo. 

Vejamos os principals pontos 
do programa em BASIC atraves 
da analise de suas linhas: 

130 - Em caso de erro, des- 
via fluxo de execu^o para a 
linha 260. Veja a linha 170 para 
melhor compreensao. 

170 - £ utilizado o comando 
VERIFY de uma forma diferente 
da usual, isto e', o comando nao 
foi empregado para se verificar 
se um arquivo foi gravado corre- 
tamente, e slm para se ter certeza 
de que elc existe. Caso ele nao 
exista, o fluxo de execu^ao do 
de que ele existe. Caso ele nao 
exista, o fluxo de execu^ao do 
programa i desviado para a linha 



230 - 250: Tcrmina o progra- 
ma de forma normal. 

260 - 300 : Termina o progra- 
ma indicando o tipo de erro que 
ocorreu. 

Claso o arquivo Texto seja do 
tipo de acesso randomico, nao se- 
rj impresso nada na tela, e o pro- 
grama terminar^ de forma normal. 

Este programa deve ser salvo 
com o nome de TYPE. 

O segundo programa, feito em 
Assembler, tern duas tarefas. A 
piimeira e montar nos endere^os 
S 3F5 a $ 3F7, que correspon- 
dem ao endere^o dc desvio apos 
uma instru^ao 8^ um JMP para o 
ini'cio de uma rotina que tem por 
finalidade executor a instru^o 
RUN TYPE. Note que o me'todo 
empregado para executar esta ins- 
tiu^ao podeia tamb^m ser utiliza- 
do em qualquer outra instruqao 
do DOS. Para guardar em disco 
este programa em Assembler, digi- 
te: BSAVE TYPE,OBJj^$300, 
L$24. 



A melhor forma de se usar este 
utilitirio e colocar dcntro de seu 
HELLO a instru§ao BRUN TYPE. 
OBJ. Com isto, semprc que vo- 
ce der o boot passara a ter a sua 
disposi^o o programa TYPE, pois 
bastari um simples &para que ele 
seja recuperado do disco e execu- 
tado. 

Lima observa^ao: antes de exe- 
cutar o comando St, verifique se o 
programa que esti na mem6ria 
ja estd salvo em disco, pois. caso 
contrario, ele serdperdido quando 
o programa TYPE for canegado. 



Antonio C. Sa/gado Guimaraes 4 
formado em Engenharia MecSnica 
pels Universidade Santa Ursula a 
trabatha, atualmente, como Pro- 
gramador no LNCC/CNPq. onde 
presta apoio t4cnico ao Projeto 
de Desenvolvimento de Software 
em Engenharia MecSnica para Mi- 
ni e Microcomputadores, al6m de 
colaborar periodicamente com 
artigos tAinicos em revistas espe- 
cialitadai na 4raa da inform^tica. 
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Listagem I 



texto, o que nao ^ nada pratico. 
Como em muitas ocasioes necessi- 
tamos verificar o conteiido deste 
tipo de arquivo, seja para saber- 
mos se o nosso programa esta 
gravando os dados corretamente, 
seja para bisbilhotar um arquivo 
de um pacote (se voc^ liver o 
Lock Smith 5.0, de uma olhada 
nos arquivos para ver que inte- 
ressante) ou mesmo de um jogo, 
apresentamos, a seguir, um utilita- 
rio que podera nos ajudar em 
qualquer destes casos. 

Este utilitdrio e composto por 



160 e o programa termina avisan- 
do que o arquivo nao existe. 

180 - 190: Abre o arquivo. 
Em caso de erro, signiTica que o 
arquivo e de tipo diferente (A, B 
ou I) e o programa avisa que o 
arquivo nao e do tipo Texto. 

200: Em caso de erro, desvia 
o fluxo de execut^o para a linha 
230. Neste caso, usamos a instru- 
9ao ONERR para indicar o fim 
do arquivo, evitando a mensagem 
"FIM DE DADOS". 

220 ; Le e imprime os dados do 
arquivo. 
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BRASILTRADE CENTER 



Comercio, Industria e Participagoes S.A, 

COMPUTER SHOPPING 




Mesas 

para 

Microcomputadores 

Fabncacao propria • Cores discretas • Desenho moderno 



BTC-05 M 

BTC-03 IVI 




K 




BTC-02 M 




Cz$1.78K00 



BTC-04 M 
BTC-01 



Cz$1 




EQUIPAMENTOS 



Micros das linhas: Sinclair* TRS-80* CCE« Unitron* 
Dismac • TK 2000 II • TK 85 • Exato Pro • Impressoras 
Modem • Etc. 



SUPRIMENTOS 



Penf^ricos • Disketes • Fitas • Drives • Placas de 
Expansao • Interfaces • Formul^rio Continuo • Cabos 
• Arquivos para Disketes • Etc 



SOFTWARE 



Programas e Josos variados para todas as linhas e 
marcas de Computadores 



VIDEOS 



Curso de Ingles em vfdco cassete • Teiao • Suporte 
para TV • Transcodifica(;ao para todos os sistemas • 
Fitas: VH5 - BETA-U-MATIC e para limpeza de cabega* 
Baterias para 2 e 8 hs. • lluminadores • Cabos de 
extensao para Camaras* Bblsas para Camarase Videos 



Nas lojas Brasil Trade Center, vocetambem 
encontra video-same, cartucho com J030S, 
som, telefonia, etc., das melhores marcas. 

VISITE UMADENOSSAS 

LOJAS E COMPROVE O 

QUE ANUNCIAMOS 

Matriz: Av. Epitacio Pessoa, 280 
Ipanema-RJ — Te!s.: 259-1299/259-1499 

Filiais: Rua da Assembleia. 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 

Rua Silva Vale, 416 — Cavalcante-RJ 
Tels.: 592-3047/592-3098 

Rua Lopes Trovao, 134/Sala 201 
Niteroi-RJ — Tel.: 710-3659 

Rua Conde de Bonfim. 229 ~ Loja A 
Tijuca-RJ — Tel.: 284-2031 



SERVICO EXPRESSO REMETEMOS PARA TODO BRASIL 



OFERTA VALIDA COM A APRESENTACAO DESTE ANUNCIO 
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Cadastro de programas 



Heber Jorge da Silva 



Cansado de procurar este ou aquele programa em seus diver- 
sos disquetes? Acha ruim quando tern que pesquisar, disco 
ap6s disco, k procura de espafc vago para alocar um determi- 
nado programa? Preocupado com o controle dos backup de 
seus programas? 

Se voce esti tendo esses problemas, n3o se preocupe mais: 
este programa, desenvolvido em diskbasic para a linha TRS-80 
modelos l/III, com pelo menos um drive, permilir^ a voce, sem 
perder tempo com digita93o, cadastrar ate 1000 programas e 
arquivos gravados nos seus disquetes. Com ele, voce pode ainda 
saber, atraves de listagens na impressora ou vi'deo, em qual dis- 
co est^ alocado cada programa, bem como a disponibilidade de 
cada disco em granules e FDES. 

COMO UriLIZAR 

Este programa e dirigido pelo menu apresentado na figura 
1, o qua! pdde ser acessado de qualquer parte do programa 
atraves da tecla Clear ou digitando-se a palavra menu. 

Para cadastrar programas dos discos, basta escolher a Op9So 
1, colocar disco ap6s disco nos drives e ir pressionando a tecla 
referente ao niimero do drive (0 a 3), no qual se encontra o 
disquele a cadastrar. Nao existe limita^So quanto ao numero 
de discos cadastrados, porem o de programas estd limitado a 
1000. 



• QADfiPROlJ V» 2.0 - CBda&tro Ha PragraanK >■ Discos 
il?a4) por Hcber Jarg* dk fll tva 

HENU 



1 - CADASTRA Progransm do DiKca 

2 - ALTERA Cadastro dr ua Disco 

3 - GRAUA o Cadastro Atual 

4 - inPRrrtt a Cadnsiro 

5 - OKDENA a QadSBtro 

A - fits dE Oprracao 




Figura I 



Se voce inseriu e/ou eliminou programas de um disco, em 
poucos segundos podera atualizar as informa^Oes referentes a 
esse disco com um mi'nimo de esforgo: ao escolher a Op^So 2, 
o programa Ihe pedira para enlrar com o nome do disquete a 
alterar. EntSo, o programa eliminara do cadastro todas as refe- 
rencias desse disquete e executara um recadastramento do 
mesmo. 

Escolhendo a Op^ao 3, o leitor podera gravar todas as in- 
forma96es do cadastro num arquivo em disco. Ja a Op9ao 4 
permite que voce veja as informaijSes do cadastro no vi'deo ou 
em relatorios gerados na impressora. Essas informa^Ses podem 
ser listadas em ordem alfabelica por programa ou por nome de 
disco, em ordem crescente ou decrescente (de acordo com o 
que voce escolher na Op^ao 5). 

Se o cadastro estiver ordenado por disco, a listagem conte- 



n 



ra, alem dos nomes dos programas e discos onde est3o aloca- 
dos, um resumo da disponibilidade em cada disco em granules 
e FDES, bem como um resumo final com o total de progra- 
mas, discos, granules e FDES. Caso o cadastro esteja ordenado 
por programa, a listagem conteri apenas seus nomes, os discos 
onde se encontram e o resumo geral. 

Atraves da Op^ao 5, voce poderd ordenar o cadastro por 
programa ou por nome de disco, na ordem crescente ou de- 
crescente. Finalmente, a Op93o 6 Ihe peimite finalizar a opera- 
930, saindo para o BASIC. 

No menu do programa nSo consta op93o para leitura do 
arquivo que contem o cadastro, porem esta opera9ao sera rea- 
lizada sempre que voce escolher as Op95es 2 (altera) ou 4 (im- 
prime), sem que os dados do cadastro estejam na membria do 
micro. Neste caso, voce sera solicitado a entrar com o nome do 
arquivo que contem cadastro a ser processado. 



UTILITARIO PflRfl CADASTRftMENTO DE fROGRAMflS 

EH DISCOS 

Por Heber Jcu-g* da Si I v« - Brasilia Of l'?a4 



1 REM 

2 HEM 
: REM 
•) HEM 
i REM 

fj llLB:PR!NT"Um mooiBUto ...-tCLEAR 27iJM0: DEE INifl-Z :CM£J-BREf)f . ^" : 
IH.RRDF--60TQ 5B 

■ MP-99T;DIM NP»lMFl,0P»f<i).US(5ai .P13> 

f) BR««STRING«lia,;ri:e«=StRING«'6J,45i:T»="» CtiDAPROG V« 2.0 - C 
jdsBtro de ProgramaB »ia Discos •"; «U»= " < l'»84 J por Heber Jorje tia 

Sllv«":L«-CHF<«(3CH;V«-CHR»(Tn:APi»-STRlNG«ll2. 191 1 : ME4="MENH" 
' fll«=3TRlN6»(l5.32):Rl»-Al»«-"-,'; ESCOLHfl a opcao. . . ■■:Rl'»-=ftl«*" . . 
.opcao a ESCCILHA >>" :Al-lS:Nf="-l : VI = 15360: TC»1440t>:LP^ 16425: FD-C 
; BR-0 
\'.< FOR J = l Ta 6:READ OP»(J>:ME>:T JIDfllA CADiiSTRA Programas do 

DiBco.MLTERA Cad«»tro de un Diaco.GRAUfl o Cadastro rllual.IMPR 
IME o Cadastro, ORDENA o CadaHtro, FIM de Operatao 

11 FDR J-0 TO SeiREAD US(Jl:NEXT J 

12 I=O:ND»-"-:FD»-"":BR»""":AD»="":G0SUBIK':PRINT;PRINT;PRINr B\ 
:0=;9i.i:F0R J^l to 6:PR!NTi1Q,J- - ■'OP«(Ji :D-Ci+i.7;NEXT JiPRlNT £■»: 
IF NP.O THEN OD=0;PRINI-Nao ha' Cadastro oa Memori a"El.Sr, ir 00--.,t 
IHENPRlNr-CadaBtro Nao Ordenado" 

I" ir DD PRlNT"Cadaitro Ordenado por " i : IF SDPP1NT"D!SCD"EI SFPRl 
ri I "PROGRAMA '■ 

14 PklNf V« : CV»-- 127.456- 1 POKEVI -261, 183:Fa*.EVI • 277, 197; p[)K,v I -r" 
7, ie;:P0F.EVl-3l3. 187;PRIfiJT92B4,"M E N U"I 

15 PB"262:BaSUB IJSIQOSUB ia:GDSUB I9:PRlNTli2B4. '■ MENU - i 

16 PS"i29e:BDSUB l35;GOSUB 19:eDSUe ie:PRINT«284, "M E N Ll"l 
1 ' GOTO IS 

IS P»=F-1»:FUR K-1 ro LeN<D»l •■1:LSET Rj»"niD«<D«, X) :60SIJB I'OiNEnT 

I : RETURN 
lo Ii»=R2b:F0R X-LENIDKTO I S1EP-1:LSET R3«-MlD«(D«.lli :gosub 20: 
NEXT ;(;REIURN 

_i. h«.iNKEy»: IF K%-"~ THEN FOR T-l TO 12:NEXT TIOU' 35^.1:0U1 ^i 
S,0:RE[URNELSE K-INSTPfCV^.K*! 
:i IF K=0 THEN RETURN 
-■J C-|-:ON i- GOT029,45.55,65,23.I05 
.r. IF NP-0 THEN 13 ELBE OD-=-l 

.lA M»" "ORDENACAO por nome de ■D-isco oo de .P -rograma-i&OSUB lu'? 
:CV»='"DdPp";605UB 106:SD«K-3 

25 M»-'-Ei« ORDEM CreBcnnte ou ' D>ecreacent« "'"CBOSUB I09:CV«""1; 
cDd":GOSUB 106:SB-h -2 

-'6 IF SB AND NOT BD THEN S-l ELSE IF NOT SD AND NOT SB THEN 5-2 
ULSE IF SD AND SB THEN S-3ELSEG34 

:? GOTO •■t 

20 IF AD THEN AD-Ci;60T0 11^ 

29 ND«="":M«""ApoB inaenr o Disco, tecla u nuoiero do Drive ide 

o a 3i ■':G0SL)B Iff 

Vl CV»-"0123":G0StJB liJ6:0N » SOSUB121 . 122, li3, 1Z4 

:.l 1-0:ND-ND*1:PRINT;PRINTB«:PRINT TAB(251 -Favor aguardar . . . - :F0 

RJ-1537 1TCI1537B1ND»-ND«*CHR«(PEE^'(J) IIPOKEJ, 1<>I : NE« [J: F0RJ''!54or 

TDIS403:F0*-FD«*CHR»<REE»:(JJ ) : POKEJ . l'H:NE!<tJ:FORJ»15412TDI5414: 

GR«-QR»*CHR» iPEEfC < J i ) : POKEJ . l"?! : NEX T J : P= 1 ^488: D= 1 5; NP-NP* i 

32 FD-FD*VAL1FD»):GR-GR.VAL(GR»1 

33 P1=P: IF NP MP THEN NP-NP- 1 IliOSUB ll'»:GOTD 12 

34 FDR J"0 10 1 1 :NP«<NPi -NP^INPI *CHR4 iPEEK (Pl*Ji > ;f4E<T J:l = I«l 



3S IF Pl-IS4Se AND NP*INPI>BR* Th^N NO-ND-1 

-6 IF N^'»(^B=■)=BR*THENNP»<NP) = ■■■■;NP-NP-l:ND»«-■•:^■D•^-'■:GR•--■■:(.Or 
O 2a ELSE PRlNTiiiri-Vl,iW«i;Pl«Pl*D:NP».MP»=NF»iIJrt -rJO*'! D«-tRt 
37 PRINT»960,NDl'' Dl SCOB. "NP* 1 - ProqramaB- 1 : IF 1 '1= INT U /4i IHFN 

f-p*64;nf»np«-i:goio "x 

39 NP"NP"-l:iF NP.MF:rHEN NP=NP ItGOSUB 119:3010 12 ELSE 34 
Zt PRINT TAei3i:iJ "ORDENANDO , . . " t :0NSG0Tn4>.i, 41 , 42. 41 
411' CMD"0",NP»l , -NPfclui ;GOrO "14 

41 CMD"0''.NP»l.NP»cOi:COTO 44 

42 CMD"U".NP»i,-Nr-«.Oi (|3,e):RUrO 44 

43 CMD-'0",NP"-1 ,NP»(',i> ( 13,01 

44 5A»*"0rdenacao":G0SUB 1 1 1 :GDTO 12 

45 AO=-l:IF NP -OIHEN -16 ELSE BDSUB 113 

46 M»="Nome do Di5CO":60SUB too: INPUT N0ft:PRINT9448, B*l ; IF NO»-M 
E» THEN 12 

47 IF LENiND*! aTMENfloELSE IF LENINUti aiHEN NU« = ND»»B IR]I1G» 'B-t 
EN*ND»I , 32) 

4a PRINT»3B4.L»tU594. "Elifflinando regtsrrua •in Hi sco -; NLl! : .=■■ 

49 IF MIO«(NP»(X). 13,B' ND» THEN 51 

50 P(rt»-0:Pin-WARPTR(NP».U) l :P (21 -X :DeFUSR-VA»PIR'U5 lOl ■IJ-USHf 
VARPTR<PID» > i:EL-EL«1:NP''NP-1: IF EL = l THEN FIJ.FD- VAL (M1D» IWf » i X i 
..'1,21 J :BR-GR-VALIM!D»(W»(X) .23,3> 1:BDTD 52 FLSE 5^ 

51 H-X.l 

52 IF X .NP (HEN 53 ELSE 49 

53 PRINTiJJB4.L«j: (F EL-OTM£NNM«»"Nao e- 1 »tem regictros do discc. 
■'♦ND»EL3eM«.STR«(ELI •■■ Regi^troB eliminados do Disco "tND« 

54 GOSUB lt-«:BOSUt> 120: IF EL-0 THEN 12 ELSE EL-'.'! ND-NO- 1 lOD^iirGO 
ID 29 

55 IF NP.OTH£m2El.SEM««''Nomu do Ar qui ./o"; GOSUB 109: INPUT A0*:PK1 
NT«44&.B«i: IF ADl"nE»THEN12ELSE IF LEN(AQ«I 12 OR LEMfflOS' 1 tHF 
N 55 

56 PRINr9i384,L«19410."Um momento . . . " I : DPEWO". I ,flO»;PRINT»l .NP| 
ND;FD:GRiSDlOD:FaR J'O TO NP;PRINT»l.NF'»(Ji:PftINIi*4.J".Nr»i Ji CNE 
XT J 

57 SA«-"GrBvacao":QOSUP lll:G0TO IT 
50 IF ERR/rtl^l THEN ONEF.RORGDTO O 

59 IF ERR/2-'l-54 THEN NM»»"NAa EXIB'E ESTE AROUIVD ' ' ' ■■ ;i.i03LlB M 
9: GOTO 64 

60 IF ERR/2H=Sa THEN NM»--ERRO DO SISTEMA OPERfiC lOMAL '■ : tOSUB 1" 
9: GOTO 64 

ftl IF ERR/2*l»6a OR ERR/2H-69 THEN NM»-"DlaDUE TE PRUTEijiDO' -!GQ 
SUB 109: GOTO 64 

62 IF ERR/2*1»6.' THEN NM»--FALTA E5PAC0 NO DISCa":GOBUB )a9:0OTO 
64 

63 0NEKR0R6QT0 OIGOTO 12 

64 GOSUB !2o:CLOBE;RESUME 12 

65 IF NP' n THtN GOSUB 113 

66 Mt'-Saida para a Improeaora (S/NI ■':BOSUB K'9:CV«-"S»Nn" :(iDSUB 
106: IF t; '2 THEN B6 

-- M»="Prepare a Impressora e tecle RETURN" :GUSUB I09:CV**<CHRS( I 

TTGDSUB l06;P6=l:0NSB+2 GOSUB 116,115 

rte M«c"TecJ« . '■■fCHR»t91)*": Se Desejar IntBrromper ": GOSUB 109:1F 

GD THEN 75 
^■v FQP J^O TO NP STEP 2 

-•O LPRINT LEFT«(NP«<JI. l2nflB( IS' MID« fNP« ( J ) . I 3.8) JAB ( 35) LEFT* (N 
P»(J*IJ . l21TAe(50IHID«<NP«<J*ll , I3.B>: IF PEEtHClAND B THEN BS 
'1 IF PEEf (LP> ;5B THEN GOSUB lia:GDSUB 115 

72 NEXT J 

73 LPRINT e«:LPRiNT"raTAL:'-NPH- Programas e Arquivos, en"ND'* Di 
!icofi":LPRINT"A disponibi tidede Total o' do'FO'" FOES, e"GR" Branu 
1b»":LPR1NT B< 

74 FOR L=l TO 6&-PEEK LP I : LPR 1 NT : NE X T L: SA»-" ImpreBBao": Grj5U& II 
I: GO TO 12 

7f, 3D«"MID«(NP»(0i , |3,Bi: J"-l 

76 J"J*l:IF ,I)NP IHEN 73 

77 BOSUB 1I2:LPR1NT MID»<NP*IJ1 .13,8lTOBll5lLEFT».NF»(JJ, 12) t : if 
MID«'NP»1J*1), ISiax ■S0« THEN LPRINT:EOTD QZ ELSE J=J*I 

7B IF J 'NP THEN 7J ELSE GOSUB 112:LPRINT r ab I3Si M1D» fNP«(,ll . 1 3.8 

ITAB(50)LEFT»tftf-»lJ( . 121 

79 IF MIDHNPSlJ.lt, 13. fll< :SD« THEN B; 

SO IF PEEh <TC)ANO B THEN 85 

Bl IF PEEKtLPl'SQ THEN GOSUB lia:BDSUB 116 

B2 GOSUB It 2: GOTO B4 

83 LPRINT B»:LPRINT"DlSPONIBll.lDADt DO DISCO " 1M1D« tNT-S IJ I . I 3, 8> 
... "Fp,.. FDES • "GR*" Granules" I LPRINT B«: LFfilNl : IF PEEKILPI'SB 

THEN GOSUB llBlGOSUB 116 

84 SD»»M1D»(NP»(J*1 1 , 13,8) :G0TD 7*, 

85 M«= "Oper ac ao CancelaOa pelo Operador •■; GOSUB lofiGOSUB I20:G0T 
12 

86 SD«-M1D»(NP»Hj) . IT-.8):PRlNT9l92.V»iB192.i:P-32u: IFSD THEN 95 
a? PRINT"PR06RAMA"TAB(151"FONTE"TAei4O) "PROGRAMA "TAB (551 "FONTE" : 
PRINT b% 

aa FOR 1-0 TO NP STEP 2: IF SD THEN 95 

99 f'RlNT9P,LEFT«<NP«(ll . 1 21 TAB i 15>MID« (NP* ( n . 13. SI I 

W F'RINT TAB<40)LEFT«INP«(1H>. 12tTAb(55>MlDt(W»<l.ll. 13.ai 

91 P=P»64;IF P>a96 THEN P-320:PRlNr9977. "Tec le RETURN para conti 
nuar-; ;CVS<CHR* 1 13) :IK)SU8 106:PRINT«320, V»l 

92 NEXT I 

93 PRINT B»:PRINT"raTAL:"NP*l"Proaramas c Arqutvos, em"ND" Disco 
b":PRINT"A disponitii 1 1 dade total e' de"FD" FDES. e"BR" Granules" 
:PRINT B»:IF NOTSD then GOSUP 106:PRlNTai9I,VS! ;GOTO 12 ELbE FRl 
NT-Tecle iCLEAR,- para o Me"u"f 

94 K«-INKE¥«:IF (.•-■■"THEN 94 ELSE IF K-»»CHR»(31 1 THEN U' EL9E 9^1 
93 CLS:PRINT"» Tecle BREAK' p/ "CHR* (341 "conqel ar "CHRK 34) " a 1 
istagerti. -.CLEAR) p/ a Menu •"IPRINT B«; SD«=MID« (NPS(O) . I 3,8) : J- - 
1 

96 J-J-n:IF J-NP THEN 93 

97 GOSUB 1I2:PRINT MID* tNP» <J 1 . 1 3. 8) TABU 2) LEFTS INPS (J) , 12) I : H 
MID*<NP*IJ»II, 13.ei' 'SD* THEN PRINT:BOT0 102 ELSE J-J»l 

98 IF J 'NP THEN 93 ELSE BOSUB 112:PRINT TAB 1351 MID* (NPB IJ I . 1 3. b) 
TAB1481LEFT»INP*(J). 121 

99 IF PEEh (TCIAND 2 THEN 12 

100 IF MIDSINPSIJtl), 13,8)-. -SD«THEN 102 
ICI GOSUB 112:B0TO 103 

102 PRINT B»:PRINT"DISPONIBIlIDADE DO DISCO "I MlUB (r#-» ( Ji . 13.81 : 
-: "FP*" FDES e ■"Gft*" Eranules" :FR INT BSiPFlNT 

103 SD*-MlD*<NP*IJtn ,13,81 

104 IF PEEKITCIAND 4 THEN 104 ELSE 96 

105 M*-"Final i;ar Realmente "■ fS/N' " :6D3UB lo9: CV»-"S3Nn" lOOSu 
B 106: IF y ^2 IHEN 12 ELSE CL&: CLDSE:CM0'*8REA) . V :CLEAR 5u:END 

106 PR1NTB166, "fecle -C.MR* (34) "CLEAB"CHR» ( 34 ' " para o MENU'l 



Qperacao de "♦SA»;GOSUB lo9:60fi 



107 K«-1NKEV«: IF K*."" THEN 106 ELSE IF )-«=CHRS(31l IMEN 12 
lOa )-IN3TR(CV«,k*):IF k-0 THEN 106 ELSE PR1NTBI66.L*! : RETURN 

109 GOSUB 110:PRlNTiil92.V»ia256.(:PRINr TAB! INT ( i64 -LENiOP* <CI i i 
/2))OP«(C) i:PRlNre320.B*ll»448.BSi«384.i:PRlNI TAB. INT I 164-LENiM» 
» 1/21 lM*t: RETURN 

110 PRINTSO.ItPRlNT TAB! INT ( io4-lEN f T») 1 / 2i 1 T»:Lf: PRINT Bi:FRlN1 
AU»: RETURN 

lit CLOSE 1;M»»-01'' Termini 
UB 120:RETURN 

112 FP»=MID*(NP»(J1 . 21. 21 :GR*-MID* (NFS Ij 1.23. 31: RETURN 

113 M*="Nome do fir i)ui jo": BOSUB 109; INPUT rtO»: PBINTiM4B. BS j ; IF AU 
• 'ME* THEN 12 ELSE IF LEN ( AOSl -12 OR LENlAO* P . 1 THEN 113 

I 14 PRINT»3a4,L»i(»410,"U»i moment o . . . " I : OPEN" 1 - . l.AO*: INTUTm.NF 
.ND,FD,SR,SD.0D:F0R J-o to NP:1NPUTII1,NP». J.:PR1NT»<io3,NP»iJ.;:n 
EXT J:SA*-'-Lei tura":GOSue lll:RETuRN 
113 y*-''PROGRAMA":Zs='FONTE":BOTO 117 

116 y»-"FDNTe":Z*-"FROGRAMA" 

117 POhE LP.O:LPRINr T»i:LPR1NT TAP (34) "Pagi na"; P6:LPR INT B»:lPF.- 
INT V»rABa51Z*TAb(35)V«TAB<501is:LPRINT B»: LPRINT: RE TURN 

118 LPRINT:LPR1NT TAB153) ■' (continua)":PG»PG*l;FOfi L-1 TO 6o-PEE). 

(LP) :lprini:next l:RETurn 

119 PR1NT4980, "NAO CABEM MAIS REGtSTROS ..."\ 

120 FOR T-l TO aOO:NE*T T:RETURN 

121 CMD"D1R 1":RETURN 

122 CMD-DIR 1 I":RETURN 

123 CMD"D1R 2 I":RETURN 

124 CMD-DIR 3 I ": RETURN 

125 R3»-" ":PDkE VARPTR(R3»>,A1:P0KE VARPTRIR3*)*2. lNTlPS/2a6)*6 
0: POKE VARPTft ( R3» 1 ♦ 1 . PS- 1 NT (PS/ 256 ) • 256 : RETURN 

126 DATA327 17, -6902. -77 15, 28301, -8958. a7y, 11237.11094, 11102, I I'j5 
1 . 1 1 03 1 .32299, 2838 1 , -8956, 1 362, -6699, - 1 3489. - 1 J343 

127 DATA10553, 10731, -13333. 12345. -I3320.1u; 11,-16120.-536/, 2497. 
AS?',- 10126,-15935,-5367, 1545.20224. -13347, 17920,4896 

1 28 BATfi-5163. -0903.-18453. 21229, -15899, -11807,552, -20243. 618'. I 
1027.- 18459. 17133,9189,-4681.-6830,-7743, 10449,-4862 

129 DATA-3192. 15943,30464,4139,-13828 
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Formado em Administra^So de Empresas pela UDF, Heber Jorge da Su- 
va trabaiha atualmente na Telebrasilia, onde exerce atividades ligadas i 
programapSo de microcomputadores. 
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Digitapao nao 6 mais problema 

peco enviarem pelo txxreio o servico 

CzS 45.00 CzS 18.00 

Programas de mteresse MS n.° p&g. Vtfor 



Projeto MICRO BUG 

G Sim, besejD receber a ftta MICRO BUG. 
com cartfio de reference e marxjal. 
pelos quais pagarei CzS 75.00 

ASSINATURA ANUAL 

Q Sim. desejo fazer uma assinatura 
anua! da revista Micro Sistemas. 
pela qual pagarei CzS 1 40.00 

Par^ isto estou enviando cheque no valor de 
CzS ^ ATI Bditora, 

ATI EDITDRA LTDA 

Av.: Preadente Wilson. 165/1210 - CEP 20030 
Rio de Janeiro/RJ - Tel: (021 262-6306 
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"S6 falta falar". Isto e o que muitos dizem 
quando podem ver com os proprios olhos ou 
cxperimentar com suas maos o que urn micro 
da linha ZX Spectrum 6 capaz dc fazer, Pois 
bcm, vamos suprii esta falta e lani^r um novo 
dcsafio: agora s6 falta mesmo e cle pensarl 

Aproveitando a sai'da de som de nosso mi- 
cro, podemos realizar coisas muito interessan- 
tcs, e uma deias e a emissao de sons que cor- 
rcspondam a voz humana. (sso. podem dizer 
alguns, tlcmandaria labelas quilometricas de- 
terminando a pronuncia dos vaiios fonemas, 
um trabalho decerto nao faciL Porem, ha ou- 
tio caminho; fazer a si'nlese dos sons vindos 
dc uma fita cassete. Deste modo, nosso miao 
poderi falar com nossa voz ou ainda cantar 
uma can^ao (um trecho dela) com a voz do 
cantor prefetido. L6gjco. a sai'da de som nao 
sera de alta-fklelidade, mas e pcrfeitamente 
possivel distinguii as palavras e sons, ainda 
por cima com a opcao de variaimos a veloci- 
dade de execuijao. Vejamos assim como isso 
pode sei feito. 

A PORTA 254 

A porta de entrada e sai'da 254 (FE em 
hexadecimal) e uma das mais importamesdo 
micro: quando utiUzada como input, le o te- 
clado e contem o cstado da entrada EAR do 
cassete, no bit 7 (D6>. Portanto. o que temos 



a fazer e monitorar esta porta e ir anotando os 
valores que formos encontrando na mcmoria. 
Depois faremos o caminho inverso: examina- 
rcmos a memoria e. de acordo com as infor- 
magSes estocadas, iremos pilotar a sai'da de 
som do micro atraves da mesma porta 254. 
Quando for utilixada em output esta poria, 
alem de controlar o som, tambem pilota a cor 
do BORDER. Poitanto. devemos tomar cui- 
dado com isto, se quisermos evitai um estra- 
nho piscar do BORDER. 

O PROGRAMA 

O programa em si e muito simples: uma 
pequena rotina em linguagem de maquina fara 
todo o servi^o. Vou explica-la passo-a-passo: a 
primeira coisa a fazer e desabiiitar as inlerrup- 
^es; sintetizar sons com um computador ja 
nao e normalmente tarefa facil, imagine -se, 
entao, sendo inleirompido 50 vezcs por se- 
gundol Em seguida, cartegamos os registrado- 
res HL e DE com o cndere^o inicial do bloco 
de bytes rescrvado a mcmoriza^ao dos dados e 
com o comprimenlo deste bloco. 

Iniciamos. portanto, um cicio de oito re- 
peti?6es: lemos a porta 254. verificamos seu 
bit D6 e, de acordo com seu eslado, setamos 
ou nao o bit DO do registrador C. Este regis- 
trador. enlao, sofrera uma rotagao a esquer- 
da. libcrando espa^o para mais um bit. Um pe- 



5 POKE 236e9,55t RESTORE i CL 
EAR 32767s FOR f=0 TO 77! READ T 
t LET a=(32768+f)! POKE b,zi NEX 
T f 

le DATA 243,17,24,121,33,232,1 
28, 14, 9, 6, a, 219. 254, 2*3, 119. 40, 2 
, 26 3 , 1 93 , 263 ,9, 62, 6, 61, 32, 253, 16 
, 239 , 1 13 . 27 , 35 , 1 23 . 178 , 32 , 227 , 25 
1,291 

29 DATA 243,17,24,121,33,232,1 
28,78,6,8.59,72,92. 15, 15, 15,2*3. 
121,40,2,236,56,211,254,203,9,62 
, 4 . 6 1 , 32 . 253 ,16, 233 ,27, 35, 123, 17 
8,32,224,251,201 
100 BRIGHT It CLS s BORDER 5 
110 PRINT AT 0,0|" SINTETIZAD 
OR DE SONS E VOZ "lAT 5,7t"Cc> 

— Carregar son (o> 

- Ouvir" 

120 LET h=150t LET p=INT tRND»4 
)+l 

130 IF h<106 THEN GOTO 120 

140 PLOT 0,h! DRAU OVER 1| INK 
P»255,0i LET h=h-i 

150 IF INKEY»="" THEN GOTO 130 

160 LET a%=INKEY*» IF a*="o" OR 

a%-"0" THEN GOTO 300 

170 IF al<>"c" AND a«<>"C" THEN 

GOTO 130 

180 CLS J PRINT AT 0,01 PAPER 1 
t INK 5i FLASH Ij" CAR 

REGAMENTO 

190 PRINT AT 10,0f"A partir de 
que endereco voct quer carrega 
r OS sons? ->"ji INPUT ci PRINT 
FLASH l;e 

200 IF e<3300e THEN CLS = GOTO 
180 



310 PRINT AT 13,0;"Quantos byte 
5 serao reservados para □ sob? 
-) "jAT 14, 14;! INPUT nt PR 
INT FLASH Itn: IF n+e>65e00 THEN 

GOTO 210 

220 LET b*INT <e/256>t LET c=c- 
b»256! POKE 32773. c! POKE 32774, 
b: LET b=INT <n/256)i LET c-n-b» 
256f POKE 32770, ci POKE 32771, b 

230 PRINT »0fAT l,0!"Ligue a gr 
avador, digite enler"t PAUSE 

240 BORDER 2t RANO U5R 327681 B 
ORDER 5 

250 CLS J GOTO 100 

300 CLS I PRINT AT 0,0; PAPER 4 
( INK 7f FLASH if" REP 

RODUCAO 

310 PRINT AT 10.0)"Endereco in I 
cial do bloco? <ENTER= o ul 
tl«o usado) "f! INPUT at 
1 IF a»="" THEN GOTO 330 

320 LET e=VAL aU LET b = INT <e/ 
256)6 LET c=e-256»bi POKE 32773, 
ct POKE 32774, bt IF e<33000 THEN 

nOTO 300 

330 PRINT a«(AT 14,0i"Nui»ero de 

bytes do bloco? (ENTER- o 

uUiBo usado> "fi INPUT 

ail IF a4="" THEN GOTO 350 

340 LET n=yAL »%•- LET b = INT <n/ 
256)! LET c=n-256»bi POKE 32773. 
Ci POKE 32774, b 

350 PRINT «»> IF n+e>65000 THEN 

GOTO 300 

360 BORDER 4: RAND USR 32805t B 
ORDER 5: GOTO 100 

500 SAVE CHR» IB+CHR* l+"SINTEy 
OX" LINE 1 
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queno retardo tambem e executado. 

Depoi.s que o ciclo for executado oito ve- 
zes, o valor de C sera estocado no endereco 
indicado por HL, que sera incrcmentado logo 
apos. DE seradecremenlado,e, se seu conteu- 
do for zero, o controle letomara ao BASIC. 
Caso contrdrio. come^ara ludo de novo, des- 
de o ciclo de leitura da porta. Isto e feito com 
o digitalizador. Ji, com o sintetlzador, execu- 
tamos exatamente a opera^ao inversa: carre- 
gamos em C o valor do endereco indicado por 
HL c, cxaminando-o bit por bit, mandamos 
ou nao um click a sai'da de som (bit D4) da 
porta 254. Essa opera^ao e feita oito vezes, 
apos o que incrementa-se HL, decrcmenta-se 
DE, seu conteudo c examinado e, se fordife- 
rente de zero, volta-se ao ini'cio. Caso contra- 
rio, retorna-se ao BASIC. 

Outra coisa; no a)me9o de cada rotina, as 
interrup«;6cs foram desabilitadas atraves da 
instru^ao Dl. Antes do retorno ao BASIC, e 
necessario que elas sejam habilitadas nova- 
mente. portanto, utilizando uma instru^ao EI 
antes do RET. 

COMO UTILIZAR AS ROTINAS 

As duas rotinas estao situadas acima do 
endereco 32768. mas nao ha restri^oes quan- 
to as suas posigSes na memoria, pois nao con- 
tem nenhum ^to absoluto. No entanto, se 
forem posicionadas nos primeiros 16 Kb de 
RAM poderao nao funcionar pcrfeitamente, 
ja que a ULA tern prioridades nesla area de 
RAM. Esta area contem o mapa de video, o 
qua! deve ser explorado period icamente, a 
fim dc enviar uma imagem a teve. Se a UCP 
lentar acessar esta parte da memoria enquanto 
a ULA estiver realizando este trabalho, ela 
tera seu clock suprimtdo at6 que a ULA o te- 
nha terminado. Normalmente, isto nao causa 
grandes problemas, mas, no nosso caso, signi- 
ficaria uma temporiza?ao irregular do pro- 
grama, prejudicatido o resultado final. Portan- 
to, aten^ao tambem com isto. 

Para utilizar as rotinas, voce deve coloqar 
uma fita com a mensagem gravada no seu gra- 
vador. uma musica mesmo serve. Digite 
RANDOMIZE USR 32768, de parlida no gra- 
vador e aperte ENTER. O programa memori- 
za cerca de 10 segundosdc sons, contudo isto 
pode ser allerado mexendo-se no valor dos re- 
gistradores DE. no inicio de cada rotina. 

A temporiza^ao tambem pode ser alterada, 
mas ha algumas limita^fies: quanto maior for, 
menos memoria utilizaremos, porem a quali- 
dade tambem sera baixa. Uma temporizai^o 
pequena gasta a memoria rapidamenle, mas a 
qualidade do som de sai'da e bcm melhor, A 
sugestao e que se mexa a vontade com o pro- 
grama. icniando encontrar a configura?ao que 
melhor se adapts as suas necessidades. Para 
ouvir o que foi gravado, digite RANDOMIZE 
USR 32805 c... carta um bom somi 



Paolo Fabrizio Pugno curss atua/mente o pri- 
meiro ano da Faculdade de Engenharia Indus- 
trial iSP) e possui um ZX Spectrum, com o 
qua! desenvolve programas. 
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GERATRON sempre foi a 
solugao ideal e economica para 
alimentapao de emergencia de 
microcomputadores da linha 
Apple e TRS-80. 

Agora voce tem disponivel o 
GERATRON PC 500. Com 
potencia de 500VA nominal e 
1500VA de pico e dotado de 
chave de transferencia estatica 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compativeis com 
IBM-PC, na configuragao mais 
completa, durante varias horas 
apos a falta de rede eletrica. 

Mas se voce precisa de mais de 
500VA, a GUARDIAN tambem 
dispoe do modelo 750. 



RJ 



GUUHHOH 6 marca 

registrada da GUARDIAN, 

EQUIPAMENTOS ELETR6NIC0S LTDA. 
MATRIZ 

Rua Df, Garnier. 579 - Rocha 
CEP 20971 - Rio de Janerro 
Tels.:Geral (021) 261-6458 
Vendas: (0211 201-0195 
Telex (021)34016 
FILIAL 

Alameda dos Ubiatans, 349 
CEP 04070 - sac Paulo, SP 
Tel.; 101)1 578-6226 
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Limpador de cabecote 



Felipe Fesster Vaz 



Uma das principals preocupa^iies dos usuirios € quanto ao 
drive. Ele 6 uma das pe^as mais importantes do computador, 
pois quando falha, ningu^m sabe o que pode acontecer. 

Este programa permite a voce limpar o cabecote do seu 
drive, um dos cuidados que todo usuirio deveria tomar. 
programa passa o cabecote quatro vezes em cada trilha do dis- 
co, em alta velocidade, tirando a sujeira. 

Alim de utilizar este programa, observe que voce teri que 



tomar outras precau95es com o seu drive. Lembre-se que ele 
€ um aparelho frigil e, portanto, deve ser tratado com cuidado. 
Verifique sempre a velocidade, tomando ainda o cuidado de 
nSo abrir ou fechai a porta do drive quando ele estiver em fun- 
cionamento. 



Felipe F. Vaz cursa atualmenta a primeira sdrie do segundo grau no Co- 
l4gio de AplicapSo. da UFRJ. Ele possui um Exato Pro onde desenvolve 
programas em BASIC. 
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10 : 

20 

30 

40 

50 

60 : 

100 
1 1 o 
120 
130 

140 

150 

160 

170 

180 

190 

200 



REM LIMPADOR DE CABECOTE 

REM por Fel ipe F. Vaz 

REM para Micro Sistemas 

REM agosto/SS 

FOR I = 816 TO 844 

READ D: poke I,D 

NEXT I 

HOME : POKE - 16368,0: HTAB 

14 

INVERSE : PRINT "LIMPADOR DE 

CABECOTE" : NORMAL 
VTAB 7: PRINT "QUAL DRIVE ( 
1 OU 2, TERMINA)";: GET A 
PRINT : IF A = THEN HOME 
: END 

IF A < > 1 AND A < > 2 THEN 
130 

VTAB ll: PRINT " APERTE ' CR 
=■ PARA COMECAR " 
IF PEEK < - 16384) < > 13 AND 

PEEK ( ~ 16384) < > 141 THEN 
180 
VTAB 7: CALL - 958: VTAB 12 



210 

220 

230 
240 
250 

260 
270 
280 

290 

300 
310 

320 



FLASH : PRINT "LIMPANDO DR 

IVE "A 

VTAB 24: PRINT "APERTE ESC P 

ARA PARAR": NORMAL 

POKE - 16368,0: POKE 818, A 

FOR VO = 1 TO 4 

VTAB 15: PRINT "VOLTA "VO" D 

E 4" 

FOR T = O TO 34: GOSUB 310 

NEXT T,VO 

VTAB 12: A = PEEK ( - 16336) 

+ PEEK ( - 16336): HTAB 8 
INVERSE : PRINT " PRONTO!" 
: FOR J = 1 TO 2000; NEXT 
GOTO 130 
IF PEEK ( - 16384) = 27 OR 

PEEK ( - 16384) = 155 THEN 

POP : GOTO 130 
VTAB 17: PRINT "TRILHA "T" D 
E 35 ": POKE 820, T: CALL 837 



330 RETURN 

340 DATA 1,96,1,0,0,0,65,3,0,128 
,0,0,0,0,0,96, 1,0,0,239,219, 
i 60 , 48 , 1 69 , 3 , 32 , 2 1 7 , 3 , 96 



m 
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Informacoes; Pra^a Pinheiroda Cunha. 195 CEP 04275 SAo Paulo SP Tets. m 0914-B325/914- 



trs-80 trs-80 trs-80 lrs-8 



Maqsorte 



Cristiano Antonio Dias e Creso Marcelo Resende de Macedo 

Que tal um programa que leve voce ate um cassino, sem correr o ris- 
co de ser flagrado em um lugar proibido? Esta e a finalidade do Maqsor- 
te, programa criado paraoscompati'veis com o TRS-80 (com ou sem dis- 
co), alem de divertir o leiior, e claro! 

jogo possui grande parte grafica, come si'mbolos para o resultado 
etc. 

Dessa maneira. no ini'cio de cada parlida. diga o vaior das fichas que 
deseja comprar (100, 25, 10 e 5). Quando o micro imprimir JOGUE, 
pressione a barra de espa^o e. . . torfa. 

Cristiano e Marcelo estudam no CBNB, na llhado Governador. O prlmeiro 6 pro- 
pfietSrio de um TK85 e 14 fez dois cursos em BASIC, al^rri de realizar programas 
para a Promatel e Phone & Game; e o segundo usa um CP 500, tern curso de BA- 
SIC e ainda cria programas para o Projeto Ciranda. 
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Tela inicial do programa 



II lii.r: 

1 rllCBO '^rsTEM^S 

r -CBIQ * MARC > -TEL 396-7087 1 'ftl OE JANEIRO - BJ 
10 'flMUINfl Dft SOfirE UEH 1.0 \Sy02nf9\ 
?0 -COPrRIGMI Id 19B4, CRIS « HflBC 
30 CLEflB 2000 
40 NHt- -BONUS" 
50 00 SUB «30 

6D DIM XirOl ,Vi?0),Z(SOI,X((20) , f»f 30 I .;«(20 I ,FT»l ? ) iKANOOMsCI-St 

PBIMT CHHK231iPRlNT!PRIMTiPBINTiPaiNTiPRI«TMAaUINA DA SORTE tW 

TRIG « MARn-IST«<l l""« •"iSTKZ)-" •■ "iSTSiai-"" ■ -tST$<^l-" 

70 i>OS-STRIHO»i lD,3r>tFH«-"«ltltll~tAftt-STRINGt(e,l7A>iAHt-STflIH6»< 

B,140)JAC»=3TRING»<e,t31)iC0IN»-CHBKia3>*CHRt<lfl7t»~ '■iFOftN«l I 

^ifOB Nl = l TO 8iREAI>R0iFTt(H)=FTHm*CHHt»R0>i«E)(T Nl.WiFriC) 

-CHRH321'CH(H<lVl>tNMHCHB»(19l) tCHRS(32> 

BO BPl-STBriJOVirO.iDi" TADELA OE PADAHENTOS "♦STflING*<SO,*OH 

G0»=CHB$(l43>+CHR»<aS)«"J0CUE"*CHH*(3?)*CHR%Il43) 

90. FOR M-1 TO JDmrAO itl Nl iNE)lTi«»20:f OR N-1 10 JDsflEftDV (Nl iNEXT 

IFOR N-l 10 -?niREADZ<H)JNEXT:FOR N-t TO 20iX«<Nl-FT»( XIN I ) iNEXT" 

FOR H'l TO ?n!ll(N>'rTt(y<N>)lNEXTlFOB N-1 TO 20'2»(M>=FTH 2<M) ) 

■.HF'ItflO^UB ;,'B0 

100 iPi"iiikt:vmp»' ■ 

no PBIMTa4a,SIHlMD»(Z,321|iPBINTa3?3,Q0t,iIP»=I'"<E'i'S'F0B Nl-1 T 
O ir.0iMn<TiPfiIMr86D,f^THING»(?. 143 1 1 iPfl INTa3?3, 9TH INCH 9,3? 1 ( ""O" 

Nl-I to ESiHEXTWIUF IP%- -IMEN ItO ELSE IFPOINK IS£,7I =0 Oft PO 
IHT<;,?4I-0THEN PT-13>005Ua PBO 

l?0 PHIMT»6O.STBIN0»(2,32) jJpflINTaa5*.,STHrN0K192,32lt'G-G*llC»C 
-14-Eiy-U*EiF=niUM-r.«FiPBlNTa2ei,"CR5 ■-, tPBINT0fiING"tt(4IHt(t"[WM| : IF 

r«-l THEN 360 
130 PRIMT93B4.'- .iPRIHIUSlHO FM«,C, IPR INT' -> FICHAS fiCSTANTES 

",lPRINTa41&."FirHAG JA JORADAS - >", IP" INTUSINC rH«,G, lFHINTa35 
r.TICHAE. OANHAtl - >•' , IPHINIUS ING FMl t(J| IPB IHISSJO. " 

,10GA' »rc%i 

140 FOR TT»I TO 5lPPINTai35,AA*ilP''I'*Tai55,AA»,tPRrNTai75,AAt,!P 

BINT3135.AB»jiPRINiai%5.AB»t«PRINTai75,AB»i>PRIKTai35.Ar»t 'PBIMT 

ai'".5.ACt:iPRlNiai7^.Ai:ijiNEXT Ti 

l"iO FOR N-i TO -"'DipHINTai35.00*iiPBiNTai55,00«iiPfiINTai75,00«iSp 

flINrS135.iC4<Nl (lPHINTai^5,Vl<N>tlPRIMTai75,7»<N'|"F0fi r = l I0 7iN 

EXT IsWCKT MiPBINTS135,00»iiPBINTai55,005tIPRlNTai75.00it 

160 FOR H-l TO 3iPBINTai3^,AA*,lPBlNTaiS%,AAIrlPftINI3175.AA»,lPfl 

INTai35,Afiti:PRINTat^5.ABtt>PBtNT3175,ABtilPRINTai3S.ACt,IPRINTa 

155,Arli:PBlMiai7^.AC4i iNDd sPR INTai35,001, JPB !NTai55.00»t :PR IN' 

aiTT.ooi; 

I/O N°HNO<S>>PRINI3135.XtlNliiX"((r4)lFOB N'l TO 9iPBINTatSS. AAff 

:PRINiai/5.AA»|JPfi?NTai?.5.AB»riPBINTai75,AB»iIPflINT8l55.AC»ilPHl 

Niai "^.AC»[iNCXT!PBI"Tai55,001(iPHIMTai75.00%, 

ino N.RWtil0>iPBINrai5r.,TilM),iY = «(N):F0R N-1 TO iniPRlNTai7S, AAt 

, lP«lNiai75,Zt'N) jIPBlNTai75,ACS|iNE)(T NlPfl INTai75. 00»( fM-RND(*l 

iFHINTai75,Z»(NliiZ-?'N> 

19n IF X-6ANCiT-6ANnZ-(. THEN E = ;001G0IO2iO ELSE IF X-SANDY-SANOZ- 

5 THEM E»IO0'G0T021O ELSE IF K«4ANDT-4AN0Z-i THEN E-IBIOOTOZIO E 

19E IF K-4AN0V-4ANDZ-4 THEN F'lBiOOtOillO ELSE IF K-3AHDr-3AN0Z-A 

THEN E-14IO0T021O ELSE IF X-3ANDT='3ANDZ"3 THEN E-14i[lOTO ZIO 
200 IF l(-2ANDt-;ANDZ-4 THEN E"10iOOT0210 ELSE IF X-CANOt-^ANDZ"? 

THEN C-10100T021D ELSE IF IClANOy-l THEN E-5iGOT02iO ELSE IF *' 
1 THEN £-2:GOT02lO ELSE 100 

no IF e-200 THEN ?30 ELSE GOSUB 270iPNINTa32D, STR IMG4< 43,3S» i >I 
F r-lOO THEN PltINTa?56, ' • 100 • PREMIO ESPECIAL • 100 • PRE 
MIO ESPECIAL ■ 100 • ■' j iPH lNra3a4 , -- ) PAQA 100 FICHAS PAOA 

too FICHAS PAQA 100 FICMAS <- -jiGOIO 240 

220 IF E< 100THENPBINra320.STRINGS<63,42)tiPHINTa384,6TfllNG»(64.3 
2),iPRINTS3B4,"PAGA>)"|Er>F0R N-1 TO EiPHlNTCOINS, IFOR NN-1 TO 7 
51NEXT HMINEXT Ni IF E-lO THEN PRINTaaSi, BP»i iGOIO lOOlELSE 100 
230 PllIMTa356,"« GANHOO ■• QANHOU •" OANHOU •• GANHOli 

• • GANHOU ■-'1PRINTa3B4." B L A ■ 200 • 60LA0 ■? 
00* BOLAO ■ 200 •"iiGOSUB 230 
240 FOB N=l 10 25:PRINT3330.STBIMG»(63.32)iiFOR Nl"l TO 2!>iN£XTi 



PRINTa320,STRINGi(,^,3.42l;iF0B Nl-l TO SOiNEUT Nl.NlGOIO 1 [»n 

250 FOR N"l TO lOOJNfXIlFOB N"! 10 ^lOtFOB T-l TO 5jP1> IHiai ^^ . [ili 

<T>iiPRINTai57,ST»(Tl7'PBINTai77,ST%<T»iiF0H TM-1 TO SaNEXIiHEXT 

T.NifiETLIBN 
2A0 IPi»' 'llPS-lNKEYtlPHINTa^B^.-SINTO HUIIO M SUAS FICHAS AFA 
GARAH. TECLE NEU LINE.'jiFOB Nl = l TO ^OiME^T HI iPH IMf 3384. STB INI. 
tlA3,32),irOR Nl-1 TO 25»NEXT NUIF IP1.----THEH 260 El -iE 30 

270 FOB N-1 TO io»rBiNrai35,oo»f iFfilNTair.r..ori»i!PRiNrsi7'^,oo*!ti 

OR TM-1 TO 20iMeXT!PfiltMai35.rT»iXi!»P»iMrai59.ri1i(Tli»PBlNTai75 

,FI$i;>iiFOR TM-1 TO 50INEXT TM.NbRETUBN 

2BQ CLSlPBINT36o,3TI»ING«14n.M0ilPBlNTa6ii.CHHtn7AllPBmTaaT,,CHR 

f tl76iiPHINTat05.CHR1<|7A)tPRlNTS125.CHR1< 176 > 

290 PBINTai3Q,CHRH191 I sPH INTai 49 .CHBH 191 1 iPB 1NT31A9 ,CHB»( I'm 

(■RINT31S9,CHRS<i91) 

300 PHINTBi 94, STRING! (60. 140t JPM INT8194 ,CHBlt 131 1 iPHINTaSl 3 .CHBS 

(l31)sPBiNTa233,CHRH13»)!pRINTa253.rHR«<13H 

310 PHtHTa512,FT»i6) J ' "jFTHA)! tFII'trii' » ?00- sPfl IHia640 , F 

T»t5>T" -iFTHSir -[FI*<5)t" -> lO0"iPRlNT976B, FT»(4 > , " ■■(FT*. a 

)," "iFTSlAI," -1 IB' !PHINr3B9(!>,rTt(4t|-; "iFTiMM" iFIlt4li" 

-* 19' 

320 PBINT35*A.FTt(31;rtH3> iFTSfAij--) 14"| lPBlNTa674,r I !■ TiFTV 

OliFmn),"-) 14"|iPRINTa80r.FTi(l I,FT«<1>,'- PAGA -1 5'iJPHl 

Nia930.FTtU >i- PAOA -> 2 "i 

330 PflINTa57i, STRING* (63, I 40 i , JPH lNTa7D4 , STB JNGll 63. 14n.,IFRINIri 

B3S,STBINGK63.1401,iPSlNTa9',ll,SIRlNG»IA:j.l401 , if'B IMl 344n , f.lH 1 Mi. 

%i63, 140>,:ir PT~13 EETUBN 

340 FOB N5.= l TO ;THPH INTSl 35, AA* j IPR IHTaiSS , AA»| IPB INT31 75. AA%( i 

PHlNTai35.AB*jlPRINraif-5,Afl%f iPBINr31/S,A8»! IPR INiai3S , Act f IPfi IN 

Tai55,AC*i!l'BlNTai7S,AC%jIHF<' HX 

350 FOR N-1 TO 20IPR IHTfll 35.X*1 N 1 1 )PR IMIBI^S, TtiN< r 'PC IHTai ''5. i* 

(Nl,iFOR T"l TO TiwCXTinBINT3135.0O»,!pflINTai^^,001iiiPMlMiai^1.O 

OljtNEXT H 

3^0 PBINTai31^,FT»<6)r>PBINTai'!5.FTlii>;irBTNTai75,FTl>Ai!:rRrNTa 

25A, ">>>)> BOLAO, COM ESTA JOOADA ^*OCE GANHA • 200 • y£/ft 

(<<<i"iPBINTa«nS. -TABELA DE PAflAMENTOS-) JGOSUB 250 

370 PBINTa254,8TBrNC,tl|9?,32M'PB!NTa25*,PARA COMPRAR FICHAS 01 

100 TECLE ion / FICHAS E 25 TECLE 2S"r =PBIW»320 . f "-"""S l>r 10 

TECLE 10 / FICHAS DE 5 TECLE f. / E MEM LINE", 
3BD PHIMTa*14,- jUNPIIT mPft INTa«48,5TBINGl( 63 . 140 ■ i ! IF CC-Uin 
OB CC-5 OR CC-2S THEN C-40 ELSE C«SO 

390 IF CCOIOO AND rX< '5 AND CCOID ANO CCw2S THfiH 370 
400 IF Cr-IDO THEN CC»»" C84 I DO' :p.lOOiELSr > IF CC-Z5 IHLN CC»-' 

CR» 2-S- IP-25iELSEtlF CC-10 THEN CCl-' CR* 10- iP'lOiEl SE HF COS 

THEN CCt»" CR4 5"IP-5 
410 PRINTa25i,CHBtl30l,tPflINTa320,rHBl.<3Hi ; :('R lNI33a4 . r.HBH 30i , 
420 PftlNTa339."TEClE NEW LINE PABA JORAfi' i sHriHRN 
430 CI S>PBINT"MAIJU1NA OA SORTE OA CBIS A MABC " jCHBt i 1 40 1 j ' t P 

- 5 JPSINT SIR[NGi<S4, 191 l,STRINri»< ir).170l|!TB0FFIPRINl' 

SEU COMPLITADOR PESSOAL ■ ipBINTa3B4 , ' ESTE JOGO SIMULA IIHA 

MAaUINA SEAL. AS DIFICULDADEG PARA" 
440 PRINI-GANHAB TAMUEM 3A0 BEAIS. NAO E5PEflE JOOAB I Oli ? 
UE7FB E DAMHAB MUITO. FIOUE TENTANDO, SE HO.IE FOB SEU HIA D 
E SOBTC, WOCE UAI GANHAR UMA flOL ADA. sPB iNTa785. -TECLE lEWIFB 
> PARA COME CAR': 

450 rHINT3B40,STRlNGt<2B,131 1 , !PR lNT3R*i , -STB 1N1H.64. 1 33 I i 
460 P-OiFOB N-l 10 61 IPB INTaH9n-.p . CHR»( l'91 , ipfi IMT3e97«P . CHR»1 13 
31,IP-P»liNEXT NJPBIMTa95ft.SrBlNfH.3,133l,IIP»-INKF'*iIF IPS- —I 
HEN 4A0 ELSE RETURN 

470 DATA 32,176, 134,174.134, I 76.134. IS, 12, 32, 3:. 32.32, n'.:li-, 35, 3 
2 1 40, 1 ?9, 17?, 179, 179. 140. 32, 32. 1 76, 140, 131, 131, 140.1 '6, 13. 32. 17 
9.179.42.42,179,179,32, 193. 179.42,42,42,42,179. IB7,32. 191, I 79. l9 
1,32,191 ,179,191 

4B(f •--*----------. _..__ 

490 • PAYOFF CONTROL DATA HEBE 

500 DATA 1,2,3,6.4,3,1,2.5,4.3,1.2,5.6,4.2,5,0,31 ■ UHEEL H 1 
510 DATA 4, 1,2. 4, 5. 3, 4. 6. 2, 4, 1,5, 4, t, 3, «. 6, 5. 4, ;i ■ UHEEL It P 
520 OATA 3, 2, 3, 7. 2. 3. 7. 4. 3. 7. 3. 2. 7. 5, 3. 7, 3. 2. 7, . ',1 ■ UHFEl It 3 
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zx81 zx81 zx81 zxSI 



Jogo da veiha tridimensional 



Daniel Quadras 



Neste programa, voce joga contra urn 
computador em um cubo 4x4x4, pro- 
curando colocar quatro bolinhas(o)em 
linha e evitar que seu adversirio ponha 
quatro tetras X tamb^m em linha. A ma- 
nipula9ao da tela e feita em BASIC e a 
estrat^gia do equipamento em Assem- 
bler, o que permite unir alguns peque- 
nos efeitos visuals a um bom ritmo de 
jogo. Apesar da simplicidade das regras, 
o Jogo da velha... exige astucia e uma 
boa vis3o espacial. 

O conceito b^sico deste jogo prov^m 
de um programa de demonstra93o da 
HP. O carregador hexadecimal e uma 
adaptafSo do programa de Tadeu Cu- 
ringa da Silva, publicado em MS n? 40. 
A rotina da listagem 2 ^ a do artigo 
"Um REM com infmitos bytes", de 
Daniel Hendrick (MS n 9 30). 

ENTRANDO COM O PROGRAMA 

O primeiro passo € digitar a Hstagem 
1 , que 6 um pequeno carregador hexa- 
decimal. As duas listagens em Assem- 





PEM llilllillllllllllllllli 


llilliillllll 1 


12 


5CP0L_ 


kS 


PRINT ■ENDCRECD INlCIflL"' 


3a 


INPUT E 


40 


SCROLL 


53 


PRINT E. ■' - "; 


60 


INPUT flf 


70 


IF nS='S" TMCN STOP 


ae 


PRINT fl«, ■■ = ■■. 


90 


INPUT CK 


100 


PRINT C*- 


110 


LET 5=0 


150 


"^OR 1 = 1 TO LEN n»/2 


130 


LET C = i6*C0DE fl» (2»I-ii +COC- 


E ni (2*1' -0.76 1 


14.0 


Ltl ==3+1. 


150 


POKE E+I-l.C 


160 


NEXT I 


1-0 


IF CK <■.'=■ THEN PRINT AT £1.5 


«£ai" 1 


i.?0 


IF CK=3 THEN LET E=E+LEN fl» 


130 


GOTO 40 



Listagem J 



16S14 


- 01 


OO 


03 


21 


A6 
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- CD 


9E 


09 


CI 


2A 


TF 40 
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BO 7 
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- 22 
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29 
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20 


FB 


C9 
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Listagem 2 

bier, deste artigo, possuem blocos em 
hexadecimal com tres campos: o endere- 
90, OS dados propriamente ditos e uma 
soma de controle. Ao se executai o car- 



regador, ele pede o endere9o inlcial do 
bloco, que i mesmo da primeira li- 
nha do bloco. Em seguida, ele apresenla 
o endere90 da hnha e espera a digita9So 
dos dados, que devem ser inseridos sem 
OS espa90S presentes nas listagens. Apos 
a entrada dos dados, e pedida a soma de 
controle. Se tudo foi digitado correta- 
mente, o pr6ximo endere90 e mostrado; 
caso contrario, aparece a mensagem 
ERRO e a Unha deve ser redigitada. 
Ap6s a ultima linha, entie com a letra S 
para parar o programia. 

Exemplo: A digita99fo do primeiro 
bloco (listagem 2) come9a da seguinte 
forma: 

Tela Digite 

ENDEREgO INICIAL? 16514 <NL> 
16514 -010O0321A640E5C5 <NL> 
16514 - 1 00032 1 A640E5C5 = 
693<NL> 

Entre agora com a listagem 2, conforme 
descrito acima. Em seguida, execute a 
rotina carregada: digite RAND USR 
16514 e NEWLINE. Se voce listar o 
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IZ PEM JOC-j Dh ijELMfi 30 

£0 PEM DCINIEu QUflDROS ^S5. 

20 C-03UE loao 

40 ^E' ■JOC-=0 

5k? ^PTrr hT 19,2 



F-0 

"0 
50 
90 
100 
110 
120 
130 
14.0 
150 
160 
l-Q 
130 
£00 



1070 PPII-4 

1050 =c. 



OSUE 2000 

PI'JT PT 19 . IS 

05UB 5000 

F fts= 'N" THEN GOTO 

ET J0G=.J0G*1 

F JOG 64 THEN GOTO iio 

D5UB 4000 

ET J0G=J0G*1 

OSUE 5000 

F F = ;. THEN GOTO 410 

F F f .0 TriEN GOTO 200 

OTO lS0+2a*PEE'-' 165=? 

rrrn loo 

PINT AT 19 .2. 




210 
£20 

iTO 

240 

I 

250 
260 

300 



220 
330 
3*0 
350 
360 

:S70 
■, fiT 
3S0 

;s0 

400 
410 



44C 
450 
4=0 
4-0 
4S0 

1000 
1010 
1020 

1030 



GOTO 250 
PPINT AT 19 ,2 

GOTO £50 
PRINT fiT 19 ,2 



G05ue 3000 
GOTO 100 

IF F = 1 __ThE,N _ .F R I NT AT 

T-Ef. =PINT fiT 
-OP .J=l TO 4 

FOP 1=0 TO 3 

LET KsPEEK (15524+11 

G05UB 6000 

IF F=l THEN PRINT RT 

IF F=2 THEN PRINT AT 

. .* , "O" 
NEXT I 
NEXT J 

GOTO 4 30 

PRINT hT 19 



GDfUE 30SO 

CPINT hT 19 



05 ue 2000 
i^RINT hT 19 . is. fl$ 
Gu5UE 3000 
IF RS=-5" THEN RUN 
5 TOR 
PEM INlCIfl TfiBULEIPO 




19 
19 






1140 FOP 1=1 TO 4 

1150 PRINT P- 14 .£4.1 I 

1160 NE'T I 

1170 LET F=U5P 16516 

1180 RETURN 

£000 REM LE 5 N 

2010 uET ihS = INC E 1 C 

k<ZkQ IF H$ = ' 5 ■ THEN RETURN 

2330 IF fis= rr THEN P-ETUPN 

2040 GOTO 2010 

3000 REM P0U5fi 

3010 FOP L=l TO 30 

3020 NE-T t. 

3030 PRINT hT 19 2 

3040 RETURN 

4000 PEM LflNCE C'O jQ'i^Z'.- 
40 10 PRI NT RT 19,2 
^BSH" . hT la 13. 
4.020 GOSue 4500 

4.030 LE"^ N:C 

4040 GOSUr 4500 

4050 _ET L=C 

4060 G05U5 4500 

40^0 LET C=C 

4060 LET r- =N*lD4L*4+C + 16525 

4090 IF PEEt- h.-0 THEN GOTO 4.010 

4100 POhE f' X 

4110 PPlrJT -T L-7 .3*C*7*N. -O" 

4120 GOSUB 3000 

4130 RETURN 

4500 c=M l£ DIGITG 

4510 i-ET OB = INKE(5 

4520 IF' Hj = - ■ THEN GOTO 4510 

4.530 IF lOs 'l"! OP (flS ■■4' 1 The 

N GOTO 4510 

4540 LET D=CQDE RS-2S 

4550 PPINT as 

4560 RETUPw 

5000 REM LmNCE C'O COMPUTRDOR 

5010 LET F=U5P 16519 

5020 IF F 1 THEN RETURN 

5030 LET h =?££■- 16522 

5040 POKE 16525+K.2 

5050 G05UB eSOO 

50-0 POIrJT AT ■, , X. ■■>■' 

5030 PETUPN 

6000 PEM K =- V ,X 

6010 LET N=rNT iKrl6» 

5020 LET v =INT IK'4-N*4I*T 

5030 -E~ ■=h.-4*.-9*N+31 

6040 PETDPN 



Listagem 4 

programa, ver^ que a linha 1 foi amplia- 
da. Para que esta linha nio atrapalhe as 
pr6ximas digita96es, entre com POKE 
16419,10 e NEWLINE. 

Entre agora com a Ustagem 3, da 
mesma forma que voce entrou com a 2. 
Voce pode (e deve) parar algumas ve- 
zes o programa (entrando com S) e sal- 
\i-\o em fita. Para continuar, basta en- 
trar com o endere^o da linha seguinte a 



que voce parou. 

Finalmente, entre com a listagem 4. 
Note que o programa anterior (listagem 
1) e inteiramente sobreposto, exceto a 
Unha 1 . Cuidado com os espa^os (nao 
reversos) nas linhas 50, 130 e 4010. 

JOGANDO 

Para come^ar o jogo, digite RUN e 
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Figura 1 - Tela do jogo 
MICRO StSTEMAS, abril/86 



NEWLINE. programa ira perguntar se 

voce deseja come9ar ou nao. Como ja 
foi dito, OS lances do computador sao 
indicados por X e os seus por ( O f.Para 
entrar com o seu lance, entre com tres 
digitos de 1 a 4,correspondentes aoNi- 
vel. Linha e Coluna do lance. Os niime- 
ros na tela facilitam a localiza9ao (veja 
figura 1). 

jogo continua ate que acabem as 
casas (empate) ou alguem consiga colo- 
car quatro simbolos em linha. Neste ul- 
timo caso, o micro indica quais os sim- 
bolos em Unha, fazendo-os piscar qua- 
tro vezes. 

Cuidado! Existem outras maneiras de 
colocar quatro pontos em linha do que 
parece k primeira vista. Por exemplo, 
aten9ao para as diagonals como (1,1,1), 
(2,2.2), (3,3.3) e (4.4,4). Boa sorte! 



Daniel Quadros 4 formado em Engenharia 
EI6triCB (Eletrdnica-Digi^al) pela Exola Poli- 
t^nica da USP. Trabaiha na Area de desenvol- 
vimento de software na Scopus Tecnologia, 
desde 1982, sendo awalmente o responsSvel 
pelo software bisico do micro Nexus 1600. £ 
usuArio de um TK82C. para o qual vem desen- 
volvendo virios programas. principalmante 
logos. 




SUPRIMENTOS 
DEQUALIDADE 



Ap6s 5 anos em SAo Paulo 

agora tamMm no 

Rio de Janeiro 

— Formularjos continues 

— Fitas para impressoras 

— Diskettes, mini diskettes 

— Etiquetas auto-adesivas 

— Arquivos para diskettes 

— Streamer 5. 7, 20 e 190 mb 

— Fitas magneticas 

— Pastas para fomiulanos 

PRACPD 

Suprimentos para Processamento 
de Dados Ltda. 

Rio de Janeiro (021) 232-6179 

Sao Paulo (Oil) '263-6644 
Telex (Oil) 38045 PRACPD Br 



trs-80 trs-80 trs-80 trs-8 



Ditado 



Afonso Jose Simoes de Lima e Hademilton Viali 



E um micro-sinielizador? £ urn micro-veniriloquo? E um 
micro-truque? Nao, ^ a sua pr6pria voz, sem sotaque e sem 
torn metdlico. 

Ditado e um programa simples, mas de grande eficiencia e 
importancia no uso de seu micro, para fins educacionais. Se- 
melhante a programas desenvolvidos para o TRS-80 Color, ele 
destina-se. todavia, ao CP-500 e compati'veis. 

Pelo nome do programa, voce ja deve ter percebido seu se- 
gredo; ele fala, ditando as palavras para voce digitar. Com isto. 
sua aplica^So e ideal no aprendizado de idiomas, por exemplo, 
ou mesmo no auxilio a alfabetizagao de seu filho. 

programa basico permite dez palavras. Essa especlficag^o 
e interessante. particularmente para as crian^as, para nao can- 
sa-las, Como um programa ja preve a interligai;3o de ouiros, 
logo em seguida, com diferentes palavras, parece que essa ca- 
racten'stica Ihe dd malar flexibilidade. Mas, se voce quiser, 
pode aumentar o numero de palavras (linhas 50 e 60), alteran- 
do. tambem, o valor de X na linha 70. 

GRAVANDO O PROGRAMA 

Embora Ditado seja um programinha de facil digita^a^o (o 
que ja e um grande esti'mulo!), e precise muita aten^So para 
OS irabalhos de gravai;ao de sua voz. AtengSo para as instru- 
gOcs! 

1 . Escreva em uma folha as 10 palavras que ser3o inseridas nas 
linhas 50 e 60; 

2. Digite o programa; 

3. Utilize todo o lado de uma fiia cassele, desde o ini'cio. Digi- 
te CSAVE "Ditado" c pressione ENTER; 

4. Uma vez transferido para a fita, desconecte os pinos EAR e 
MONITOR (manlenha so o pino MIC coneclado); 

5. Pressione as teclas PLAY e REC do gravador, preparando- 
o para gravar sua voz; 

6. Digite RUN e pressione ENTER. programa come?a a ser 
executado, e o gravador ji estara gravando. Diga junto ao mi- 
crofone; "Escreva Tatu" (ou a primeira palavra de sua lisia); 
7 Ao aparecer "Escreva?" na tela, digite "Tatu" e pressione 
ENTER; 

8. Repita o mesmo procedimenlo com a palavra seguinte e as- 
sim sucessivamente; 

9. Apos a ultima palavra, vem a pergunta: "Voce quer conti- 
nuar (S/N)?". Como ainda nao ha nenhum outro programa gra- 
vado, em seguida, digite "N" e mude as palavras das linhas 50 
e60; 

10. Conecte os pinos EAR e MONITOR e siga os mesmos pas- 
ses, a partir do item 3. 
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UTILIZANDO PROGRAMA 

1 . Ponha gravador na posigSo PLAY e a fita no ini'cio; 

2. Digite CLOAD e pressione ENTER; 

3. Desconecte o pino MONITOR, para se ouvir o som do gra- 
vador, e ajuste o volume; 

4. Digite RUN e pressione ENTER. 

Agora, para que voce fa9a uso imediato do Ditado, utilize as 
series de palavras que sugerimos nas figuras I e 2. A primeira e 
para apoio a alfabetizagSo de seu filho e a outra para aprimorar 
seu ingles. A parte de alfabetiza^So traz as primeiras palavras 
que nossas crian^as aprendem na escola, e a de ingles procura 



1 . 


TATU, 


TUA, ATA, TEIA, TATO 




TIA, TETO, TITO, TUTU, TITA 


2. 


PATO, 


PAPAI, TIPO, PAPO, PIPA 




PITO, 


APETITE, TAPETE, TAPA, PATA 


3. 


SAPO, 


SOPA, SUA, SEU, SIM 




SAPATO, SEI, SETA, SOU, SAI 


4. 


LATA, 


TELA, LUA, SALA, ELE 




LEITE 


, PULA, SELA, ALI, LULU 


5. 


VALETA, VELA, IVO, LUVA, VIVO 




VOTO, 


EVA, UVA, VILA, VALE 


6. 


CAPA, 


CAVALO, CALA, SACOLA, SUCO 




COLA, 


CAIU, CACO, CACAU, CAMELO 


7, 


DEDO, 


DITADO, DIVA, CADA, DIDI 




DADO, 


EDU, DATA, CI DA, COCADA 


8. 


RALO, 


RUA, RODA, REI, RAIO 




RATO, 


RETA, REMO, ROUPA, '■"'UIVA 


9. 


MATO, 


CAMA, MACACO, MULA, MhLh 




POMADA, TOMATE, LIMA, LAMA, MACA 


10, 


BEBA, 


BATATA, BOCA, 'bOTA, BALEIA 




OBA, 


BOi , bela, bule, bode 



iSL 



Figura 1 



1. HOUSE, KNIFE, OVEN, TOWEL, SPOON 
DESSERT, LUNCH, MIRROR, BATHROOM, CUPBOARD 

2. SCHOOL, PENCIL, DRAWING, RUBBER, STUDENT 
SUBJECT, TEACHER, DEAN, BLACKBOARD, LIBRARY 

3. STREET,, CAB, BUS, RAILROAD, GAS STATION 
CRURCH, BUILDING, AVENUE, ROAD, BRIDGE 

A. PAINTING, MUSIC, ARCHITECTURE, DANCING, PLAYING 
MUSEUM, PORTRAIT, PICTURE, SCULPTURE, PHOTOGRAPHY 

5. MOON, SUN, EARTH, SATURN, GALAXY 
OCEAN, MOUNTAIN, ISLAND, CLOUD, FOREST 

6. WATERMELON, APPLE, PEARL, ORANGE, AVOCADO 
COFFEE, RICE, SUGAR, MEAT, CORN 

7. NEWSPAPER, ARTICLE, PRESS, C0KM'=;NTARY , HEADLINE 
SWIMMING, GYMNASTICS, SOCCER, FOOTBALL, BASKETBALL 

8. FAT, WEAK, THIN, TALL, SHORT 
LOOK, LISTEN, EAT, SMELL, CATCH 

9. DOG, HORSE, TURTLE, LION, ELEPHANT 
MONKEY, MOUSE, SNAKE, BIRD 

10. CHICKEN, COW, COAT, TIGER, BEAR, 

BUTTERFLY, WHALE, SHARK, FISH, ALLIGATOR 



Figura 2 

ampliar o vocabuldrio do leitor, com palavras usuais, mas que 
nem sempre sSo de seu conhecimento. Contudo, lembre-se; 
voce nSo precisa se limitar ao ingles. Espanhol, alemSo, fran- 
cls... Se depender do seu micro - e deste programa —, em 
breve voce ser^ um verdadeiro poliglota! — 



Afonso Jos6 Simdes de Lima ^ advogado da TELESP na Regiao Centra- 
Sul, sediada em Campinas; e Hademilton Viali 4 Engenheiro Eletricista. 
Chefe do Distrito de Campinas, da TELESP. 



1 CLS 

2 PBINT CMBKZai 

3 PRINT 

4 PBIMT" ■■•■ DITADO ••■■" 

5 PRINT 

6 PRINT"M1CR0 SISTEHflS" 

7 PRINT 

8 PRINT"Afon«o J. Slaoci i1 Ll««" 

9 PRINT 

1« PRINT"* H»d««iilton yt.ir'iFOR L-l TO S8«»iNEXT L 
29 'Est* proBr«B» d»«Hn»-ie »o CP-SB* « picro* comeat i 
58 DftTfl HOUSE, KNIFE. OWEN. TOyEL. SPOON 
6* DATA PENCIL, niRROB. MOON, SUN. aKY 

7e x-i» 

Be CLS"PHINTa4'»."D I r A 0' 

81 PfiiNTaieB,"-"-™— -" 

96 IF P-X THEN A3* 

l«e READ AS 

11» OUT 236.2 

126 FOR Z-1 TO ■••••■NEXT - 

13e OUT 236.0 

t4« P-P'l 

138 INPUT~E8CHEWA''|B» 

t6> IF B»-A» THEN 60T0 176 ELSE GOTO 27« 

176 IF e%-A* THEN C-C*l 

laa P»INT"UOCE ACERTOU "C EM "P" PALAUHAIS) 

190 IF C-X THEN QOTO 37» 

2e» 'HESPOBTA CORfiETA 

22« OUT 236,2 

230 FOR Z«I TO 50081 NEXT 

240 OUT 236.2 

250 IF P-X THEN GOTO 420 

260 GOTO 80 

270 'SEGUNDA CHANCE 

298 FOR Z-1 TO 500INEXT 

318 INPUT"TEMIE DE NOVO' ESCREUA"lB» 

320 IF B«=A4 THEN PRINT'TORRETO) " 

338 IF H»-A« THEN GOTO 356 

335 PRINT 

340 PRINT"NAO..."' 

342 PRINT 

345 PR!NT"0 COBBETO E'.,."A« 

358 IF BS-A4 THEN C-C+1 

360 PRINTIPHINT'UOCE ACEHTOU 

378 IF C-X THEN 308 ELSE 488 

388 FOR D-1 10 208 STEP 3 

4«e FOR z-1 TO 38881 NEXT 

418 IF P-X THEN GOTO 43* 

428 GOTO ee . 

438 PHIHT>PRINTiINPUT"VOCE •IffiB COHTINUAR (8/M>"|Y> 

448 IF Y»-"M'' THEN END 

4S8 CLSiPRINTi4*e.~AP0S CARREQAR . DIOITE RUN 

468 CLOAD 



"C EM "P" PALAVRAtB)' 



Ditado 



TUDO PARA SINCLAIR/SPECTRUM NA: 

^^Y^Q PRAIA DE ICARAf, 211 / Loja 03 f^fnof 

5TUf? NITER61 - RJ CEP 24.230 yjl^^HL 



INFORMtTICa 



TEL.! (021) 717-1700 



SOFTWARE ZX SPECTRUM*/ TK 90 X' 



SOFT FECIAL SYSTEMS - 


L.,ncinwnta t<clui'HD 




coa 


Tllyla 


Tlpo 


KS 


coo 


Tlluko 


Tlpo 


Kb 


C«D 


TlnitD 


Tlpo 


•a 




nn • manuDJi vr' pcilutfuni 




SM11 


Trm BomO 


■nfflnlll 


le 


SJOSa 


Boob* -Boo 


•do 


48 


SJ106 


TofnadD La*- Laval 


acaa 


48 




TInilD 




Kb 


&M2S 








SJO&I 


ftn.on 




















SJ079 


ThtBiicaa TRiBm 


■ik 


«8 


Sjou 


Wh.tl>a 


Kta 


48 


















SJ030 


WOFldCxpFooIUII 


■«Hrl*l 




SJD53 


Fdll Gut 


•Clfa 














SiQ3l 


9'tOt A1I*T 


Mb 




&Jl«4 


3D Tank Duit 
















747 FlIgM £inilll*IDI 




U031 


Pdkv 


carM 




SJ0S6 


T>w Pyrvn»a 


K*° 




cOo. 
















IwniD pvi Pwliigill 






SJOM 


D*c Uhlan I 


nporlH 






















■ 












MCsoail 














UTILITARIOSVERSAOORIOINAL -Lw<CJrr*nn» - 


sjoss 


ID I>li4 Winv 


•Cfa 


48 


SAOOI 


UU Fila 




16 










ctt 100,00 






SJ0&9 


Fj^IB* plIDI 


1rti>ul««k 




SA004 


VU3D 


atMicaiivo 


48 


JOGOSVERtAOOfllGINAL 


- LiincvnanlDi - Ct% 7D.00 








Kb 


SJOM 


Trjihnian 






SAva 


VUlUli 


HViitartvD 


lb 


COO. 


TIlulD 


Ttoa 


xa 


SFOOl 

wool 

SF0Q3 


Full CaiTip>iH 


UlltltlllO 

uiiliitia 
militlrn 


16 

ie 

1G 


SlObl 


MilchPom 


■VOrTtI 


48 


JOOOSVERSAOORIGIMAL - 


CHanai - Cat 30.00 




SJOM 


SpKlnl tmntan 


•eto 


48 


&JOEI 


Sf' -p Pohtf 


cvtv 


«B 
48 


cAd 


TIuId 


Tlpo 


Kk 


SJ006 


Howl'ilt 


n>Wi 


4B 






Mce& 


Frill 




48 


&J0B6 


MaiTai Chau 


labuivirD 


«fl 


Sjoai 


Spam Hpio 


■VO'lai 


«8 






SMGS 


MiPac 


Kla 


le 


%KB1 


Back^rnmon 


udbiairo 


4a 




























Cha^i iiad Fiaq 






&jooa 






IG 










SJ06B 






48 


&iaB9 


Jai Sal Willi 


KiO 


48 


sjoio 


PnHTi. 




16 


simi 






48 


sjoea 






4B 


SJ09D 


Pml 


•cto 




KJOI) 


Zioom 


•Dfc 


*e 


sj<n* 


High Noon 


•Cis 


48 


SJ070 


MtlDOl Sla'm 


Klo 


16 


SJ09I 


AnitQ.O 7 


aOs 










48 




Inin-cn Fare* 




IB 


5J07I 








SJ0Q2 


Mdnii; M.nar 






SJ013 




CDTiidacArra 


1« 








4« 


sjori 


3D Comtul Zona 




48 


SJ093 


Mt W.iTVv 


aC«D 


M 


SJ0I4 






Ifi 


sxai 






IS 


SJ073 


Potry Pamtai 


m*a 


16 


SJOM 


lOSaidiuDAilach 


acts 


48 


sjois 


Difco Can 




48 


%jra6 


Ptrttxrtiv 


WAl 




SJ074 


Sir Luncaiar 


*CiD 


16 


SJ09S 


3D Am Atlacli 


aclo 






T»ivG<l> 




«3 










SJ075 


ElkiniDEiUi 




48 




Juitipirrg Jack 


ac4i> 








48 


auMo 






*8 


5jo7e 


eaadiHtw) 




*B 


SJ097 


Ad'o BUiia. 


aclo 


18 








«a 


SJHI 






•e 


SJ07J 


KaVoioni WiK 




48 


SJD9S 


Pool 


talllar 










4S 


SJMZ 


Ni^l Gunitr 




w 


SJOTB 






46 




Pinbal' 


datlran 










le 


^ou 


AfCKM 


■Cfe 


ie 


SJO'B 


lin Jono 


>c*> 


48 


SJiOd 


Sflaca ^*^an 


ac«o 












3J0*4 








uoao 


HvrW Aiuel 


m*> 




















SJ04S 


Pi'Diurui 






ajoei 


UOt Wull 


-ila 






Hg<aca 6 GfhdfB 














sjow 








sjoez 


Kovnic Kimgi 








Horaca Goai Sk i.ng 














SJ04T 






48 


sjoea 


WwHB'Saa 


kMo 


48 


SJ104 


CoDkHt 














%XM 




K&> 


48 


5X04 


CnucHK En 

747 f liBhl Simulilo' 


•Klo 


48 


SJIOfi 


S-muladlK IH VM> 


iirnulac4o 




SJOW 


PMKuUi 


Kk 


*s 


SJ049 


AjilDmnnii 


K<D 


4S 


SJ085 


iimu^ACk 


«B 




Ikait4d para Porluipll 







Ml CRO SISTEMAS, abril/86 



TODOS ACOMPANHADOS DE MANUAI5 EM PORTUGU^S Na compra de 3 programaj teceba grSos uma fita caiseie virgem Soft Loader C-20 da Special Syttoms (ena promocao 

nao* tfahdaparaosprogtamaieinofertal. Gravaeoeigarantidas por 30 diaso pariir dodaia de atendimento do pedido quanto a defeitosde labricac"0. 

COMO COMPRAR PROGRAMAS; Faga i«u pedido por carta, felacionando o cddigo doi produtoJ dBMiadO*. quanltdadei. valor unitano e tolal por produto. Ao terminar tectie um 

total geral. Nostos pretos para PHOGRAMAS jd incluem as despeuj postaii. Nao je ewue^a de identificar-se e ao local para remeiu. Anene cheque nominal a ATI EOITORA LTDA., 

Aw. Pres. Wilson 165grupo 1210 Cenlro ■ CEP 20030 Rio de Janeiro ■ RJ. Seu pedido seii prontamente atendido logo ap6s a libera^ao pela rede bancdria do valor correipondBiile. 

HARDWARE TK 85": REOEFINIDOR DE CARACTERES SPECIAL SYSTEMS MOD FHL IK liestado pela Equipe Micro Siitemas e analisado na edicao 51,dBi, 85) CiSd 99 FHL 

. . SOTN'i (aposiagemdo pedido dedne o valor da OTN a ser aplicado) S6 para TK 85". Deipesas pcstais noo inclu'dat Solicite informagoes adicionaii a STOP Inrormiiica. 

SOFTWARE SINCLAIR: Absolutamonte TTJDO ja profcluiido para a linha e lani;amentos inSditos. Novas versoes. melhoradas, corrigidas e/ou ampliadal. Software radsfinkfo para 

miquinasque se utili^em do Redefinidor de Caracterei Special Svsiemi ou adaptacoes compati'veis. Solicite nosso cat^logo. 

SUPRIMENTOS: Fita cassete virgem Soh Loader C-20 especi'fica para micro compuladorel (emoferta). C6d. 20 KSL . . , Cz% 14.00 a unidade. Quant idade minima de 12 unidadespor 

pedido. Despesas postan nao incluidas, Pedidos diretamente para a STOP Informdtica. Alendimento pelo reemtwiso postal. Solicite nosso catSlogo de wprimentos. 

EM BREVE DANDO SUPORTE AS LINHAS MSX E COLOR. * Marcaregisirada Sinclair Research Ltd. *■ Marcas regisiradas M.crodigital Eleiromca Ltda 



zx spectrum zx spectrum zx spec 



Roberto Gil Brasil 



Elaborado para microcom- 
putadores compativeis com o 
ZX Spectrum, Microcirco 6 
um jogo onde voce deve aju- 
dar na exibi^So de dois palha- 
90s que tenlam estourar bexi- 
gas (boias) no teto de picadei- 
ro. Sua tarefa sera controlar 
uma gangorrra, evitando que 
OS palha90S caiam no chSo 
ap6s cada salto. Para isto, i 
preciso fazer com que eles 
atinjam a parte reta da gan- 
gorra que estiver vazia. Cada 
vez que voce deixar cair um 
palha^o, terd perdido uma 
chance (sao tres ao todo). 

Uma bexiga estourada vale 
10 pontos e a cada 20 fura- 
das, surgjra o DESAFIO: um 
palha^o sera lan^ado de um 
canhSo e voce tentar^ faze-lo 
passar por um buraco que se 
move no teto. Se veneer o de- 
safio, voce ganhar^ 1000 pon- 
tos de bonus. Lembre-se que 
nesta etapa h^ apenas duas 
chances. Tanto no DESAFIO 
quanto no jogo normal os 
movimentos dos palha^os sao 
controlados pelas teclas S e 8. 



1 PCH nICSOClRCO - ^IBBS fiS3 

3 iftue "icpo:iBca" i-I"E s 



Listagem I 

No decorrer do jogo, ser3o 
tocadas virias melc>dias, de 
acordo com a ocasiSo; s9o 
elas: "Valsa dos Brinquedos"; 
"Tico-Tico no Fub^"; "Can- 
Can" e parte da "Marcha Fu- 
nebre". 

Este programa dever4 ser 
gravado e digjtado em partes, 
e a seqiiencia abaixo deveri 
ser seguida k risca para su- 
cesso da digita^So: 
1 — Digite a listagem 1 e gra- 
ve com GOTO 3; 
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Microcirco 







1 




E5TRJTL1RH DO PROG. PRINCIPhL 




100 300 


fiP resen ta cap 




800 ■ S90 


In i c 1 a 1. 1 z a v a r i a v e 1 ; 




lS00/il50 


Loop principal. 




2500..-2S50 


C n t a q e m d e p n 1 s 




30^0/3030 


Con iagerti de chan ces 
£ M a r c h a F u n e b r e 




3500/3700 


Bo n Li s d £ 1000 p n T. =■ 
£ msjs i ca CfiN CRN 




4000, .■■4310 


Final do J 9 M.u s i c a 
TICO TICO NO FUBR e 
q !j a d r d e r ^c r d e = 




^■000/6300 


Dssa f i 




■ .•00/S070 


Ins *. ru coes do .jogo 




.300. -9550 


Musica CfiN CRN 




Sslrulura do programa principal 



2 - Digite a listagem 2 e gra- 
ve com GOTO 600 (Obs.: 
conteudo da listagem 2 sera 
gravado apenas na forma de 
c6digo ap6s o comando aci- 
ma. Se voce quiser gravar ape- 
nas na forma de codigo em 
BASIC para uso futuro, utili- 
ze o comando direto SAVE 
"MC-LM", mas grave-o em 
uma fita separada, pois essa 



listagem nSo serd usada para a 
execu9ao do programa. Na 
verdade, eta serve apenas para 
gerar os caracteres definidos 
pelo usudrio e as rotinas em 
c6digo de maquina usadas 
no programa.); 

3 - Digite a listagem 3 e gra- 
ve com o comando direto 
SAVE "MC" LINE 100 
(Obs.: Ao digitar esta lista- 



gem, OS caracteres de A a U 
que aparecem em inverso (ex- 
ceto na linha 220) devem ser 
digitados no modo GRAPHIC, 
pois sSo OS caracteres, definf- 
veis pelos usudrios, usados 
pelo programa. Quando eles 
forem digitados, nSo irSo apa- 
recer invertidos; estSo assim 
na hstagem apenas para que 
fiquem destacados dos outros 
caracteres.); e 

4 - Ap6s executar a seqiien- 
cia anterior, o programa esta- 
ri pronto para ser usado. Para 
isto, coloque no gravador a 
fita com OS tres segmentos do 
programa, de o comando di- 
reto LOAD"" e aguarde 
carregamento ser completado. 
Divirta-se, entSo, com seu Mi- 
crocirco. 



Roberto Gil Brasil cursa a ultima 
s4rie do segundo grau no Col4gio 
Monsenhor GuHherme, em For do 
fgusQu. Atualmente, ele est4 fa- 
iendo estdgio de programa^So 
em BASIC. 



1 ocH isae Joriim-t. isss 

2S =ESTOCC J5 FOB n.e4.S00 T.; 
6*91- OEfl: 13 COKE fi.ti »£•' 

£z C-5TO 23 I*'' ;53 os.ee iso ; 

S £1! IE. £31.231 a e S a l£.li z 

3B FOB f=e*31B TO SaS^e PO'-S 
-I 3S nC«t f OOKE tiii-' isS COr 

3= r-na n=eiiEo to eaare POffi 

r. 2i llE'T r. COi-E 6*379. iS PO^ 
C CASiO SI =Or.C 6*381.5 

*Q fan n>6»38S TO B5010 COM 
r 3i NE-T n 

90 PESTOCC 8! POB raC^lOB "0 
eil!! scr; ct POKE n .CI UE-T 

;; :cT6 a; is, 15.32 2Z 32, 3£ ; 
; :e i 1*6 :i se, is. 16. £.151 isi 

:Si :-2 32 16 e l*~ 22.21 15.32 
:l JS IS 2 1S3 1!* 132 93 

-IJ SEiTOBE 120 FOB n.6*2Ce 'Z- 
5*229 oeac :■! POKE r, na sc -T 

iiB oara 22 is is. 16.* liS.si i 

13 16 S 1*" 32 32 32.16 2 1** 
131 131 £2 21 15 16 £.152.95 1*9 

140 EESTOBE 130 FOS r,. 64580 t; 
6*520 RC« :a OOUC n ca 'lE-* 



.e.O 33.100,250 06 3e 126.35 215 

IS isi.aai 

160 CATA 56.102,230.25* OS . 19* . 

5* . 252 , &£ , 03 . 50 , 102 , 250 , 30 . 113 . 2 

50.30 133,230 00 55.102.250.61.5 

. 102 . 259 . se . 113 . 250 . 58 , ISfi , 250 , 

33 . 100 : S5S . 06 . 36 . 126 . 35 , £15 . 16 , £ 

51,201 
190 BE5T0PE ISO FOR n •8*600 TO 
64613 BEftO Cd POKE 1 , td NCIT 
n PESTORE sea FOP n.S4620 TO 

6*6*3 PERC- C3 POKE n , cd NEXT 

r> 
190 D)^Ti4 5S 102.250.254.22,194. 

leS £52, 6S 21 50. 10£. £50. 50, 113. 

230 50.126.230 
200 :OTQ 53.102 £50 50.50 102 £ 

50.50,113 250.50.156.250 33.100. 

250. ae 36.126.35.215 16.251.201 
240 BE5TQPE £50 FOE n«8*700 TO 
64723 nCRO (d POKE rv.ca NE>n- 

250 CflTB SG.S9.9£.254.53,2e2 £1 

3. 252. 25*. 56 £02 . 12 ,253 . 33 .200 . 2 

50.06.29 126.35,215.16,251.201 

255 PE5T0BE 260 FOP n=6*-'3a tq 

6*?73 BEOD cd POKE n . (1 NE«T 

260 CQTfl 96,202.250.251.02,191- 
S3S 252,62,03 50 .202 .£50 . SO .203 
250 50.222. 250. 00. 5S,20S 250 61 
50. 202. 230.50. £09. 250, 30. £2£. 2*2 
.33 200, 250, 06. £9 .126.35.215 15 
£51 201 

£65 SESTORE 270 FOP n i647eO "; 

6*8£3 SCAD cd PO«E n.ca NE-T 

n 

£70 DHTA 56, SOS, £50. 254, 22. 194. 
32. 253. 62. 21. 50. SOS. £50. SO. 203. 2 



50 30.222.230.00 59.202 250.60 3 
^ 202.250.50 £06. £50. 56 222.250 
12 £00 250 06.29 126 25 £1S.16.£ 

51 £01 

;iO =5" P£3('. at cartzlt'ti 
;:3 =C!TORE 340 

:2e «;c j»i t,j h rcbct *• fob 

■^•0 ":■ - PEcci t 

;30 =C'fE u = = »»«r, a 
3 40 raTO 1 S4.60 1S6.£5S,£SS 
255 126 60 

350 DATA t 6.26.5.26 62.93.62 
33 

360 [ATA ■:■■ .84,60. 156.255 126 
12! 60 £4 

3~e TflTo 3 .60.255.255,60 60.8 
0.6O 50 
390 vATA t 60.195 193 195.195 

a a 3 

3 50 DATA ' .0.8. 00. 3 IS . *9 . 19 
2 
4^0 TATR 9 3 la 43 192,0.0,0, 

D 

410 zarn -h e.e.o S55 o.s e e 

422 DATA I' 60.19S 199 195.195 

e Z £55 

*3S> Z'ATA J 19S.*e,12 3.0 0.0 

_^44a ^ATA I .0.0.0.0,102.46 12 
■00 !TOF 

sao iAve hc ■lk-code 6*100.1333 



Listagem 2 



OEM .jpse io'-.-*-* iai5 

1 CEH ...1.**.....*. .•..»--- 

2 OEM 4 

3 BEH • nlcOO IIC'IO 
* BEH t OC 

■ BEH * =:Bt^',5 Si'. 6-*Si 

6 BEH * 1365 

- BEH ♦......,.+, t*,..,..... 

100 BOBdEB » OBIOHT 1 BABEB i 

C-9 

105 LET l(. BifB icrt5("-.l 

110 FOB •■! TO 13 FOE fl=ia -r 

!TEP -1 I' ' ■* THEN LET 1 •! 

115 III- BnC .4 PRINT AT n.lO 1. 
3 tf.l AT r.ll ,*9 

ISO "E'T r. ME.T , 

1S5 CAUSE ie "l-AiH 1 

130 ''OP f^ "0 '^ £1 PAINT AT -. C 
IN* BNti.J CABEP PNt»9 1" -lE 

135 "0= "'O TO 31 PRINT AT £1 
r> BARER 6f*D«9 IN> BNC..S "■ 
E'T r 

1*0 FOB 0.21 t; a STEP -1 PEln 
T AT '■. 31 iNf BNC.»-9 BAREO BN[ . 
S 'I KE'T n 

1*5 FOB n.;: -■:■ o step -i rein 

T AT r. SflCEB BNC'va I'll- PNC.* 

ffJE-T r, r^diH 
Z'i' i =1.0T 16.133 DBAu • 
2* C.EAIJ S ■£* CPAU 16 24 OPaj 
-24 

135 olCT 43 ij; HBBl: 24 
ISO ElOT 36 133 DEAi- * 24,-3 
165 PLOT 60 135 DEAU : 24 tEA 
ui 16 3 [iBou .4 -11 tOBu -1* 
C-EAiJ 14.-12 

ire blOt s- 135 tBAu e 2* dps 

u 16 DBOU -S.-24 C'RAu -1* 

irS BSHiT AT s ;, :inco 
160 BEH feit'.'-j * 1-9 . ci'io 
190 INf 1 FOB n.iis TO a i-EB 
-1 Blot 12' 12- C-BAu n -?2 Cl 
CT 12-, 12- C-BAu -n.-'i NEXT r 
195 "OB n.lO ■'0 O STEB -I RlOT 
16 53 OBAu IN' 2 -r -30 Plot 
239 95 SBBU INJ. £ fi -30 ME«T r, 
£00 FOB 1t*€- TO £3 STEP -1 BlC' 
t 16 r, CifiAu IN' 2 32 D Bi-OT jS 

I-, r-BALl Iw 4 so BLOT 96 n 
DBAu IN" 2 64 FlDt 160 n C-6A 
■J INf 4 so a Blot £00 n CPAlv 1 

H* 2 :a .e >.e>t n 

205 FOB n.21 TO STEP -1 PLOT 
126 93 C'CBrj 1H^ -r -24 RlOT 
126 33 :-RSU INI' 1 -24 HE*t 

206 Slot 12" 12- CAAa 0.16 "1' 
B r,,3 TO JTEB -1 PLOT 12- 143 

DRAU Irtf 2 r -s T.EBT i- 

210 INK a CL-3T -3 B oRAu --e : 

C E-0- 204 C-BAU --0 30 
sao P RINT Bl AT 1 2 Prtn,:r,( 

nW •>*'» .:.3*.- RESTORE 2*0 

;£S "OB f. t; ei REflC ■ SCU'J 
: .23 '-6 I" 1=13 -HEN 3Cijn: ,3 

10 =A,..5E 3 LET i-i.l 

230 IF IH'E,»=CHRi i; Tie-, Bun 
290 

235 NEVT J 

240 :atb -« 

4 * -i 3 5 

245 CflTR -3 S !. -;.S.5.-5.S,5.- 
3 4 4 4 , 4 

250 CATR -1 4 4,-3,*.4.-t.5.S - 

3.3 3 0,4 4 
253 CATO -3 * 4 1 4 -1.4.4,-3 

* * -I 3 3 -3 3 5 -3 5 5 -5 5 5 

,-5 * 4,0.4 4.-1.4 * -3,4.4.-1 S 

,5-555 0.4.4 

260 SOUND .75 16 SOTO 220 

290 BOPDEP "■ BBIOHT 1 PAPER - 
QLi 

2S0 PRINT AT 10 11 ZUK 9 Ir,i ; 
-uli«J-' TAE 15. ■! N' I" mfi.E.« 
• ' S OB INxE'f* S TnEN RUN BOOO 

295 IF INfE.»« M- OP IN'Efl"'-- 

THEN .:i.ESO BUN 408 

300 'JOTO 290 

400 : IM . » i9 -■ DIM P 161 

410 lEt t.t.iso LET ei>e 

420 LET ',> .3 
4 30 LET (.13 

eoo eoRDBR I EflPEB 1 flRicHT ; 

cl: 

eie INf 6 'OP n»0 TO 12 BlO- 
0.0 tOAu - 1-3 BLOT is; c :.Ch 
11 -n 175 SE'T r. 

esc 'OP "■! TO ;ft_l PRINT AT 

n.* inr. 5,CHB» 1*3 NE-T n 
830 brinT at SO, INP 9 p'. 
6*0 BlOT 166 DBAU INh 9,295. 



1255 :■ <) 1(2 -NC. j.'SS, ANC' i 

EN le" ■ "j-is _7~ . r 
1260 IF I ai* Then let .<b415 



-15 LET ^,.-S 



0*4-1 



650 BBInT at 2,8, INK I 



■rrr' 



• r" 



at 10 " 
6 '•' A 

s Br IN 



2 "•" e 

• ri.J.j, 



660 'OR "■£ TO Sa 

870 LET ;=« 1^ SmINt in Si i 

300 PRINT A" 3-3 n, INK iBn:.*- 

21 .AT J.d 1 'B 

990 NE-T - 

1000 BEH JO-30 

1010 LET 11.1 cOhE 6*102 12 =0 

'E 64113 12 =OnE 6*126.12 EOSLi 

3 2000 LET gtF.i 

1020 BBINT AT i3. 1 

102! 'OB naS TO 6 BBINT AT 

. IN". 4 "■ AT 11 n. INP 

T 12 n INP 2 1 ERUSE 

T AT 10 n a'? 11 n .AT 

n , ■ NEXT r 

1030 POINT AT 9 a. IKK 4 -i" 
10 9 INK S '■' BT 11 9, INK 

1035 PAJiE 2 PRIHT AT 9 9. 

T 10 9 ■ ■ .AT 11.9. 
1040 'QB n.18 TO 18 BRIf(T BT 
9. INK 4 l' .AT n,1.9 INK S 
, AT n.2 9 Ink 

BT n.I 9 AT 

lOSB EHINT AT 13, I ■ 

1070 GOTO 1210 

1100 60UNC' .01 -13 $OUND .09 -1 

£ 

1105 LET 11, .1 RRNO U9R 64900 L 

ET fTEEEr 6*20; POKE 64102 ■ = 

OKE 6*113 ' POKE 64128.' 

1110 LET 3. INT "-iBNCtSl 1 

1115 50:ue 1580 

11S0 lFT s.int ,bno.3i 

1129 IF J .JO RNC 9.. 16 THEN LET 
I .9 JOTO 1300 

1130 IF 9 IS BMD 1 I THEN LET 

• a.INT ,0nC.*2i-1* let a'S 

11*0 IF a..l- THEN LET I. AB5 '9 
-INT 'RNt.Si -1*1 LET i,.-2 

11*5 IF 9 . >9 RHO s»l THEN LET .. 
9 LET n r ,3 OOTO 1310 
1150 <i05UD 1600 
1200 PEH 

1209 I» 1 , I ANC I '.1 THEN iC-" 

3000 

1210 SOUMC .01 -IS SOUNO .03 -1 
2 

1220 LET I'. 12 CANO U5R 64900 L 
ET 'iiREEK 64102' PO»e 6*202 ' 

ROkE 64209 I ROHE 64222.1 
1233 GOSLfB 2000 POKE 23560. COCE 

INK E>' • 
1240 LET a.iNT If .lBNC.t2t3i i 

1249 GOSUB 150;; 

1230 LET I. IN- si;t-.3' 



--\ BMC 9 >29' ~i.: I ' 



1 TrtE 
L260 
ET ,. 

1270 IF 9 .15 ANC. 9. .21 THEN LET 

I .9 aoTo 1]"" 
;i-5 IF ij .-_i. 6HC 

1 'HEN LET 1.) LET H.-.3 OOTO 

1:1; 
iseo ^o:uB leoo 

1290 ,.ET I If -3 IF I >' AND "■ ' 

• 1 T.,EN O^T-; ;oo8 

1255 509Ua 2000 GOTO 1100 

1300 E£M CEJlIC-A 

1303 :.ET i»IiJT iBND«3i I» i"l t 



HE I. 



■ .3 



1310 IF 5 1 then let II. -.9 

;;io 'OP 1=5 Tc IS JTEB i Gosue 

2003 LET I =1 .11 

1340 =OINT AT f 1 IfJK 4 ■" AT 

INr t ■ .AT 114.2 I . INK 3 



...1. IK 

1330 iOSl 



SuO 2005 PRINT BT n .1 
■ AT n.I 1 AT rt.2 ,1 

1390 Nf.T r. 
13-0 :■ < -INT . THEN GOTO 1390 

1360 .ET 1 .JNT ■> .11 . 

1390 I' I'.'l T-EM OOTO 1203 

1400 IF 1\.£ Tn£ , GOTO 1290 

1500 PEH SUBIDA 

1505 IF l',.l THEN LET 9>9*S 

1510 I' l'..£ Then let 0.9.1 

1515 FOE n.l8 TO B STEf -2 

1520 I' PNC.,- ANO 9 2B THEN LET 



"r 

-9*a 


9 Ink S ■-. AT n 9. I«^ 


3 


SOSuE 2003 
















AT -, J 








1560 




ANC 


n 


-2 .41 ThE^ goto 2500 






15-0 


NE'T r, 








1580 


BETuBl, 








1600 


BEH CESi 


DA 






1610 


,.ET r.S 








1620 


FOR ■ .9 


■: ■ JTEB , 


GOSu: 




£005 










1638 


PC INT AT 


r^ 1 INK 4 


'■" . a- 




1640 


INK 6 


1' AT n+2 


IKK 


= 


GGSuB 2003 BCIHT AT r ■ 




AT 


p-l . 


AT r..2 • 


^. 


' 












1645 


IF II -; 


THEN GOJUB 


2003 








Them goto 


670 




1660 










16-0 


LET -,... 


OR INT AT 


f . 


u 



INK 



AT 



• 2 > iNf 2 -9 EROSE 2 PRINT 
BT r. I AT n-1 I ■ OT n.£ I 

BETl'BN 
2000 CEH HOl-iIHEHTO DA ganGOBBA 
230" =;■! 23560 CODE ?VK E'l • LET 

:»UJR 6*900 
2810 I^ !'.■! T„CN LET o.UiR S*50 
-ET /=E£E- 6*102 
SO£e IF i < =2 THEN LET e.USR 6*-0 
LET ''PEEf 6*20£ 

2030 SOUNC .004. INT -if £, RETU 
BN 



2515 fob •■! to * sound .005 20 

. nE-T ■ 
2320 BCInT BT B-3 9. AT n-2 9 



','.■200 T^E 
N 1.ET ■, 1.0 GOTO 6000 
2330 COTC 1360 
3000 BEH Ool. com. cnincti 
3003 LET fn.CK-l PRINT RT O S 

3013 FOE r.l TO !«-! 

3015 PRINT AT O.Z.*. INK S.CnPS 

1*5 

3020 NjvT : 

3025 I'.'EB 3 BBINT AT ai i . INK 

4 . BT 21 < 'O- INK 6 



IN 

1- 3 f O'jEB 

3030 OESTOBE 30*0 FOB HI TO 8 

beb: . ., 'DUND ■ '3. * NE'T - 
3040 DATA 1 0.1,9 .8 6 1.0 .5 -1 

1-11-110 
3050 PAfiO USE 6*900 
3860 IF ;^ =0 then GOTO 4000 
30S0 GOTO 1000 
3580 PEH BONu; 
3310 INK * PAPER - BORDER I 
3530 Flash 1 CLS 
3540 FOP :.0 TO 31 



AT 21 ; ■ 
3560 r.E'T z 
3!T0 FOR :.l TO 20 
3530 PBINT AT I 0. BABEB BND*B 
INr RND.9. '■■' AT : 30 "H ' 
3598 NE-T I 

3600 PLO- 66 12- DHBU 0.2* CEA 
-- 16 DBBU -12.-1 DRAU 0.-1 
£ -1 tEAU -l6.0 

3610 Plot 92 1£- DRAu £* [ea 
-I IE DRRU -2* DBRU -16.0 
3620 Blot 116,12- CBOu S« [■= 
RU 16 -£* DRRiJ 0. £* 
3630 ElOT 1*0.151 DRRu -2* C 
BAu 16 CBAu 0.£* 
36*0 Blot 164.127 DPflu 16 DB 
Au 12 DBAu -16.0 DARu 12 
DBAu 16 
3650 Blot 96 b~ Dbbu 0.16 DOAu 

-2 -* 
3660 CIRCLE 109 95 fl CIRCLE 1£- 

93.6 CIRCLE 1**,95,6 

3670 BRINT AT 15, IS, P0NT09 

3880 ^DTO 9500 

3690 lET Ft.p 1*1000 FLA6H 

3-00 iOTO 900 

4000 PEH ' ini 1 

4005 PESTOBE 4300 

4010 BOBCER 3 RABEB fl INK 9 ,; 

4020 BEIfJT AT 2.9. PSrilOl E '. 

4030 FOR K=l TO 3 

4033 IF El e'K, AND K ■ .3 then CO 
-0 4060 

4.0*0 l.E-T r. 

4850 PAU5E 60 GOTO *150 

*08O FOR n.li TO 6 STEB -1 

4063 PERD : ■ SOUND I ■ 

4070 PRINT RT - n . -CONORATULRCOE 

5 A'- - 22 

4075 PRINT AT 9.(1-2- PELA ABBES 

■NTAOflO AT 9 24, ■■ 

40SO NE'T r, 

4090 BBINT AT 13.-. "DISITE SEU N 

DHE OT 14 8 " '■»< .~n t r»i I ■ 

4035 POKE 23009 100 INBUT TAB 1 

LINE r I IF lEN .-I.t THEN COT 

: 4893 - 

4108 FOP n.5 TO K*l STEP -1 
4110 LET pin..ein-li let <* ,n < . 

. im -1. 

4120 NE-T r, 

4130 LET DiK.lpt LET ^(iKii.ri 

4130 600DEB 1 BBICHT 6ACER ■ 



FLASH 8 INK 9 CLS 
4160 PRINT AT 3 9. CLASSIFICACAC 

■. OUER l.RT 3.9. ■■ 

■ BT 4 9. 

41-0 FOB ml TO 5 

4175 EBINT TAB 7, INK 2. ■ 

.TAe 9.R<ni,TfiB 17 1 

t ini 

4190 nE"T n 

4133 INK 2 FLASH 1 

IINT AT 1,6. '^^^^^^^^^ 



4JJ^RI 



sSs^^^P^^S^^^RRlNT RT * , P 9 
i CmCER 1 

82*0 I" INKE-i= 5- THEN LET *»=4 

*-l 

6250 IF INK,E.«. 0" TMEM LKT »1=1 

*.l 



IITOFOB n.2 TO 16 CEINT AT n e 

\- AT n .£3 I' NE'T n 
4220 FlhJH O '.'EE PBIWT RT 1 
9 3. BrcssifHE SBHI B*'! ja9i'-" 
4223 LET w=0 

4230 RESTORE 4300 FOB n sO TO 10 
7 READ r ' SOUKiD 1 1.4 --v 
42*5 IF INkE.«.CHR6 13 THEN GO 

TO 410 

4230 ME-T B LET 'JIIJ.2 IF V 14 
THEN LET ^.0 
4260 COTO 4230 

4290 RESTORE 4300 FOE n.I TO 10 
B READ A 50UND ,2. A NE"T N 

4300 CATA .12 42 .23 ,40. .IS . 38 . 
23 3- .25 35 .25 34. .25. 3" .25 3 
8. .25 40 1 42 1 42 .12 30 .12.29 

.12 30 .12 31 .12.30 .£5 35 .12 
.30 .12 £9 .12 38,. 12 31 . . 12 38 
.25.34 .12 30 .12 £9 .12 30 .12 
31 .12 30, .12 40, .12 37 .12 34 . 
l£.3e .IS, 26. .12.27,1 26 .12 35 
.12 34 .13 33 .12 31 .12 35 .25 
40 .12 3B .12. 3-.. IS 35 .12 30 . 
IS 35 .25 36 .12 38 . . 12 3? . . 12 . 3 
6,. 12 3- .12 85 .12 29 . , 12 , 32 . . i 
2.35 .12.3! .12 37 . IS . 35 
4310 DATA .12 3* .23 *2 . . IS . 3" . 
1£ *£ .15 30 .12 59.. 12 30 .12 3 
1 -IS 35 .25 30 .1£ 29 .12 38 .1 
2,31 .12 30 .If 3* .55.30. .12 £3 

.12 30 .12 31. 12 30.-12 40 .^Z 

37 .IS 34 .12. 30,. 12 26,. IS 27 
.12-26 1 33. .IS 3*. . 12.33 . -IS 31 

.12 33 .12 40 .25. 38 .12 37 .12 
.39 .12 30 .12 35, .12.36, .25 38 
.12 37 .1£ 36..12.37 .12 30 - li 
34 .12 3- .12*0 .12.39 .12 37 1 
.35 

9000 BEH D«ll f iC- 
S0O3 -ET »t.l5 LET .(.' 



60£C t,E-T 1-. 

58£5 PRINT AT 4 2 AT 21 3 .1 

6030 IN* 9 PBIIT AT 10 IS DEiA 
FIO 

ease bestoee 3070 for -.i to 1. 

PEAC- ; SCiJNC r -.12 nE'T , 

60-0 DATA .25 -I- .1£ -10 .12 -; 
- .2! -13. .12 -- .12 -12 .SS -12 

.IS -5 .!■ -IS .55.-10 .IS -e . 

-12 



.11. INK 6 



I". AT n .44 



IN 



6S-0 NE-T r 

6S60 IF K.PCI OB ((BPDS>1 TmEn 

GOTC 3500 
5290 "E'T 1 

6300 GOTO aoo 

-000 STOP 

9800 PAPER 2 BORDEE 6 INK 9 C 

l5 

8010 BfiKtT rae 18 'MICPO C1PC3 

S02O BRInT Biii»CO »06« e 

ii-> ;iat « <u-'lri uai ei'i9( < 

'0:< 9ar:M lepantosi i aacv-i 

ijzt r,a; atv«-r» d«.>»r p»Ln 

i:: :ti' ri? cnto ii n*o B*>'ac 



j*t 



'c: , 



S030 ORINT '.'o;t <.<■ 3 cn«r,e«i 

.< 1 cut S0B«ii9as lur*9ai uo:* 
«nC6T.rjri jm am'io C»i3 ','. 
:enii9« utn-'Er tii* d«>i'io 9a 
iKjra 1000 Bon toi . ' , ■ 

8048 RRI'iT J09U* ie* 41 I* 

: ', ■ 1 Be ! 

3030 BBINT 81. AT 1 3 -prtsiier.t 
ENTEB pi.-t .■osii'" 
SOeO IF IN'E.«»CHBi 11 Then ClEA 

C RLi'l 400 

80-0 GOTO 8060 

SSOO BEH HUl 1 is 

3510 RESTORE 9520 FOB n.I TO 60 

REOC ■ .« S0UNI> - 2 V NE<T n 
3515 50TC 3698 

9520 DATA ; ,23 2 .25 3 .23 4 
.23 2 .'S ~ .• - .23 " .25 9 ,25 

4 .23 5 .5 2 .3 £ 

9530 DATA ,£3 2 .25 3 ,25 4 ,23 
£ .23 .23 12 .25 11 .23 3 .23 
- .23 5 .23 4 ,25 2 1 .25,2 .2 

5 5 .29 4 ,£5 S 

9540 DATA .3 - .5.-. .25 - .23 3 
.23 4. .23.3 .5 2 .5.S..25 2 . . 23 

5 .2! 4 .2! S .25 .S3 * ,23 2 
.25 1 

9550 :ata ,£5 ^ .25 - .23 2 .23 

* .23 .23 - .25 2 .25 4 .23 J 
.25 - .25 2 .25 4 .25 .25 12 



■1-0 PRINT AT 10 IS. ' E 

_£0 15 INr "Ij- RT £1,1* iri- 

61S0FOE 1=1 70 £ LET 11.13 
6190 FOB j=l TO 3 saUNC .007 



AT 



£ 
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MICRO SISTEMAS, abril/86 




INTERFECE 
SIMTETIZADORA 

DEvoz RfVLM 

Digrtou... Falou... 



Reproduz a voz hu- 
man o perfeitamente. 
Permite que se varie a lo- 
nalidade, volume e veloclda- 
de da vCiZ- Bans digitar a psls- 
vra c ouvir com a pronuncia correia em inglH ou por- 
gues, Facdima opera^ao. i& uem com alio-falanie ria in- 

face. 




AplicsgOes: 

- Apfendizado do ingloi; 

- Tofna seuf programas apli- 
caiivot educativos e jogo) 
fa lad OS. 

- Acompanha disco c/soh- 
ware de demonstrapfib o 
manual detalhado, 

Garanila de 90 dias. 
Acompanha lambrfm 
Mini-dicionirlo c/3.000 pala- 
vras no soft, para cosultai '&■ 
pidai em poriugues/ingles au 
, vice -versa. 



rbewja rscsber: 
I Q INTERFACE PALM. DISCO 
I E MANUAL POR C7S 680, 
I n MAIS IIMFORMAQOeS. 



NOME: 

END.: 

CEP: 



CID. 



[ENVIE CHEQUE NOMINAL fe 
I PALM SOFT LTDA. 

R .^UGUSTO STELLFEDL, 1314 
I CEP 8OOO0 - CURITIBA - PR 
I FONE:(041I224-S946 

VALOR CrS 



Raramente as mensagens de erro dadas pelo seu micro sao capazes de 
ajuda-lo a identificar a origem do problema. Agora, com este 
programa, seu Color Ihe fomecera informa^oes bem mais completas. 



erro, e caso este tenha sido verificado num programa, o niime- 
ro da linha em que ele ocorreu. mecanismo de impressffo 
dessa mensagem e o seguinte: 



Mensagem de erro 
no Color 



.Cl^udio Costa. 



Errar e humano. Que o digam os computadores. ao se 
verem ^s voltas com instrufOes que mandam ler arqui- 
vos que nunca foram abertos; pedem que se v^ para 
uma linha que nffo existe ou que se retome de uma 
sub-rotina na qual jamais se entrou;tentam operarcom matri- 
zes n?o dimensionadas; destoam das regras de sintaxe. . . £ de 
levar o mais poderoso dos chips de ultima gera^So k "loucura". 
Isso so nSo acontece gramas ^s rotinas de tratamento de er- 
ros, que nesse instante interrompem o que estiver sendo feito 
e informam ao humano usuario a ocorrencia de algum engano. 
Do ponto de vista da mdquina, a importancia de tais rotjnas e 
obvia, pois as conseqiiencias de se continuar o processamento 
em tais condi^Oes seriam, no mi'nimo, imprevisi'veis. Do lado 
do usuario, no entanto, as coisas sffo bem menos sii.iples; 
por serem bastante genericas, essas rotinas dificiimente se mos- 
tram capazes de ajudar na identifica^^o dos procedimentos 
que resultaram numa mensagem de erro; raramente elas ofe- 
recem indica^Oes mais precisas sequer sobre a posi^Jo ondc 
determinado erro ocorreu. 

TRS-Color nSo constitui exce9ao k regra, mas, em todo 
caso, e possi'vel contornar esse problema dando uma maozi- 
nha ao sisteina operacionaj para melherar suas rotinas de 
error trap. Vejamos como. 

ROTINAS DE TRATAME^JTO DE ERROS DO BASIC 

Um erro, para o BASIC, pode ser traduzido de varias ma- 
neiras, das quais a mais comum e a discordancia dos parame- 
tros funcionais ou de sintaxe de uma determinada instruijffo. 
Uma das principais tarefas do sislema operacionai. ao executar 
um programa em BASIC, e checar se esses parametros estSo 
corretos. No TRS-Color isto e feito comparando-se o texto 
da tnstru93o presente na mcm6ria, i medida em que vai sendo 
!ido, com os parametros especificados pela rotina correspon- 
dente na ROM. 

Com relafSo ^s regras de sintaxe, em particular, nffo ha 
como evitar algumas idiossincrasias do pessoal da Microsoft ; 
por exempio, PRINT TAB (10); "X" (observe que ha um espa- 
(p enlrc TAB e o parentese) nao impnmc um "X" na coluna 



4^ 



10, enquanlo que algo como PAINT @ (20, 30), por estranho 
que pare^a, funciona normalmente. 

A tarefa de "ler" o texto do programa BASIC fica a cargo 
de uma rotina de nSo mais que 12 bytes, conhecida como 
CHRGET, cuja listagem deve parecer familiar a quern ja me- 
xeu com micros da linha Apple; 

9F INC SA7 • IKCHEHENTA BYTE SA7 

Al BNE SA5 ■ SE NiO FOB ZERO, SEGUE P/ SA5 

A3 INC SA6 ' CASO CONTBABIO INCREMENT* SA6 

A5 LDA S2DD • A PECA UK BYTE DO PROGRAMA 

A6 JMP SAAIA • CONTINUA O PROCESSAMENTO 

Uma chamada do tipo JMP ou JSR $9F incrementa 
CHRGET e carrega no registrador A um byte do programa 
BASIC, que pode ser interpretado como um token, o codigo 
de um carater etc. Os bytes $A6 c $ A7, per sua vez. indicam 
a posi^So corrente do programa. o que alem de servir de refe- 
renda para o interpretador, e usado nos testes de sintaxe de 
virias instrufOes. Vamos ver, por exempio, o cheque de sin- 
taxe por virgula: ele e requerido por diversas fun90es do 
BASIC - inclusive PAINT, a que nos referimos ha pouco - 
e executado por uma rotina localizada em $B26D, que manda 
imprimir uma mensagem do tipo ?SN ERRO, caso este delimi- 
tador nSo seja encontrado: 

U2uD LOB *S2C • B> COD. ASCII DA VfRGULA 

fl26F CMPB [sAfi] • COMPARA COM BYTE ATUAL DO PROGRAMA 

B273 BNE SB277 * VAI P/ SB277 SE FOR DIFERENTE 

B275 JMP S9F • CASO CONTRARIO TUOO OK; VAI PECAB OUTRO BYTE 

B277 LDB #2 • B- COD. DE SN EBBO • 1 

B279 JMP SAC46 ■ SEGUE P/ROTIKA DE PROCESSAMENTO DE EBBO 

Para a rotina que inicia em $AC46.convergem. alem desta, 
todas as demais rotinas de verifica^So de erros do sistema ope- 
racionai: ela constitui a ultima fase do processo de error 
trap e realiza uma serie de opera^Oes relacionadas com o tra- 
tamento e a identificatjao do erro detectado. Os primeiros 
passos desta rotina procedem a um MOTOR OFF e ressetam 
o stack e os parametros das rotinas de impressSfo, restabete- 
cendo a imprcssSo no vfdeo, se necessario. Em seguida, e 
enviada para a tela uma mensagem idcntificando o tipo de 

MICRO SISTEMAS. abri!/86 



AC5A JSB 5B9AF 

AC5D LDX dSABAF 

AC60 ABX 

AC61 BSR SACAe 

AC6] BSR SACAB 

AC65 LDX 'SABES 

AC6e JSB SB99C 



IMPRinE UM -7" 

X APONTA P/ IMlClO DA TABELA DE ABRCV. 

DAS MENSAGENS DE ERRO 

SOMA 1 COM !J 

IMPRIHE A ABHEV.DA MENSAGEM 

IMFRIME A PALAVHA "ERRO" 



Inicialmente, o registrador X aponta para a base de uma ta- 
bela contendo as abreviaturas das mensagens relativas as 25 pos- 
siveis situa^Oes de erro ; voce pode ver esta tabela digitando FOR 
A=&HABAF TO &HABE1 :PRINT CHRS(PEEK (A));:NEXT. 
Cada abeviatura e sempre formada por dois di'gitos - em ge- 
ral.duas letras — e assim e' s6 somar o registrador B com o regis- 
trador X para se obter o ini'cio da abreviatura na tabela (por 
este motivo, o registrador B, ao entrar na rotina, deve conter o 
codigo de erro mais 1). proximo passo 6 testar se o computa- 
dor se encontra a ni'vel de comando direto, devolvendo-se o 
controle ao teciado em caso afirmativo; se nSO, imprime-se 
antes o mimero da linha onde foi observado o erro - na ver- 
dade, e impresso o mimero da linha corrente, ou seja, a linha 
que estava sendo executada no instante em que foi interromfn- 
do o processamento. 

Resta, por fim, ao usudrio reparar o engano que cometeu 
e torcer para que ao digitar RUN, novamente, tudo de certo... 

ROTINAS DE ERRO DO USUARIO 

sistema operacionai destes equipamentos prev^.contudo, 
a incorpora^So de rotinas de erro desenvolvidas pelo usuirio. 
Estas rotinas deverSo fazer uso de uma liga^Jo entre a ROM e 



a RAM existente nos enjere^os $18E, S18F e $190. Na 
realidade, o primeiro passo que a rotina de erro em $AC46 
executa ao ser chamada e um JSR S 18E - algo como GOSUB 
$18E. Nesta posi^ao encontra-se origin ariamente um codigo 
de RTS, de modo que o processamento siga de volta para a 
ROM. Todavia. se for introduzido ai' um JUMP para o endere- 
50 de uma rotina, ela sera executada antes de IAC46. 

Esta ligagSo, que tecnicamente se chama "gancho" (/loo/:), 
e uma das mais imporlantes conexOes do sistema operacionai 
com o usuario; de fato, nffo haveria sentido em se dispor de 
rotinas da ROM para programas em linguagem de maquina, 
como as rotinas de acesso ao cassete, por exempio, se ap6s a 
verifica^So de um erro de grava9ffo ou leitura o controle 
retomasse incondicionahnente ao BASIC com uma mensagem 
?I0 ERRO. Este desvio permite a criafSo de rotinas de erro 
particulares, capazes de proceder a uma manipula^ffo diferen- 
ciada das situa^Oes passi'veis de serem caracterizadas como 
erros. 

Podemos, assim. mandar o computador apontar a posi^S^o 
do erro na linha e substituir aquelas mensagens cripticas de 
duas tetras por mensagens de erro completas. £ isto o que faz 
o programa apresenlado neste artigo. 

UriLIZACAO DO PROGRAMA 

Grave primeiramente programa da listagem anexa, ap6s 
digiti-lo com aten^ffo. Voc^ pode modificar as descri^Oes das 
mensagens de erro k vontade, mas lembre-se de procurar nSo 
exceder, por questSo de estetica, o limite de 31 di'gitos por 
frase. D^ RUN e grave a versffo final do programa, que devera 
ser carregada e executada com comando CLEAR lOOO: 
CLOADM:EXEC. O micro devera responder apenas OK. Se 
isto nffo acontecer, reveja a listagem anexa e procure por erros 
de digita9So. £ 



COIlOOUE SEU PROCRRMR 

I -I 



RETURN 
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MTS-IV-M e um Micro Multiusuario, admite ate 6 terminals de video teciado 
com capacidade de executar multiplas tarefas. Digite. 

Reo de Janeiro - Av Catogeras. 6-B-Sobfolojas 
Tela ■ 24(M934 220-9943 - Castelo TWX (021 ) 30354 
CEP 20030 

COMPUTADORES ^° ^^^^^ - ^^^ 'inambu. 1 271 - rel 240-5899 

Moema TWX (011)21299 
CEP 04520 
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MENSAGEMDE ERRO NO COLOR 



Com o programa na mem6ria, experimenle digitar uma li- 
nha igual a esta: 

IB FOB J-1 TO IBB.-PRIHT J ; DEXT 

Em seguida, de RUN. A tela deverd mostrar o seguinte: 

IB rOH J-l TO IflBBrPRINT J:NEXT 
>EHBO D': SINTAXE 

A posi9ao pr6xima ao erro seri assinalada por urn cariter 
grafico em vermelho (CHRJ 239). Se voce quiser usar outro 
cariter como indicador, substitua o EF na Hnha 100 pelo equi- 
valente em hexadecimal ao c6digo do cardter desejado. Para 
obter urn ponto de exclama5ao, por exemplo, troque EF por 

21. 

algoritmo do programa e simples e consiste, basicamente, 
em listar a linha corrente at^ a posi9ffoindicadapor $A6-$A7; 
imprimir o cariter grifico ; listar o restante da !inha;e imprimir 
a mensagem por extenso. Se o erro for verificado num coman- 
do direto, apenas a mensagem de erro serd exibida. Uma rotina 
op^Sd: ao inv^s de limpar a tela e listar a linha do erro, acione 
a rotina de EDIT, colocando automaticamente tal linha em 
modo de edi9ao. Esta prdtica, no entanto, tende a enfrentar 
aJguns contratempos, especialmente em programas mais lon- 
gos. Considere o exemplo a seguir: 

le A-257iB-191 

2t PMODE 3,l!COU3R 2, 3:K:LSiSC8BEN 1 

3* PSET Ih.B): SOUND A,B 

41) GOTO 40 

Observe que, embora seja acusado somente na linha 30, o 
erro na verdade foi provocado bem antes, pela instru9Jo 
A=257 na linha 10 (este parametro 6 cbnsiderado valido por 
PSET. mas nSo por SOUND). 

Este exemplo serve ainda para ilustrar uma limita^So com- 
preensivel da mdquina: ela n3o ^ capaz de saber exatamente 
onde estd urn erro, apenas informa a situafSo em que ele se 



Listagem 

U -akita^ ■•■<■■•■ ■■41. nil XT! iE.bo.ilV,SS.30,o;.^r',30,BO,OD.LD 

I ■» LRKHbB/BIN • ,3a,Ei.,aO.<rt,zn,l"A,aD.a9.5C 

3 '■ Asilnata pavicao do srra ■ 120 DATA Db.jE.UO.UQ.ei .BD.Qt^.Bb 
* 'n t ii.pr ima Kn*iig«- por ■ . 7E.ftC,?3.BD,B--,C7,BE ,0S.tK).7E ,8 
S '■ a«t«n»o • 5, a* 

4 ., -11 130 ' 

? ■■ CUu<l>Q Casta - MB D2/B6 ■ ]40 DATA NEXT SEn FOH . ERRO QE 5 

8 ■■■•>*•■■■■■■■■■■*■■■■■■••••■■■• INIAXE, RETURK 5EH GOSUS , OAOOS 

9 ■ IKSUFICIEHTCS. CHAHADA tLEDAL DC 

10 t:LEAH20D,2S*»PEEK(ll4)-fl3Qtl- FUNCAO 
25i"|iEEi<<ll61''lS9'F"l'lI8 150 ' 

::□ CLS31F0BE-I Tg FIREADAViPOXEE 160 DATA SOUHECflBBA MUKERICA, ME 

UftLI"£,H---Ai)iNEXT nOBIft INEUFICIENTE, LIMHA IMEXIB 

3d rohb qt0£3ihea0m*>l-lem<h»hp tenie, ikdice koha da faixa, mat 

oh£:e,i.>kowt-iioliC'A3C(m1oi(m»,t riz bed! mens! chad a 

.1" I'O ■ 

10 POKEE«l,ClHEXIlE-E*L'llHEXTiS UM I'ATA Ji>;lSM PgH HCnu . InSTH 

OlIHOlOD.SiCLB UCAO OIBETA ILEGAL, EBHO DE DIQI 

•M PHl/IIUlflE.-PREKAKE GHAVAOOH TACflO, ESPACO PABA STBINO IH3UFt 

E TELLE tNI£R"UFINKEr*"-THENa CIENTE. BTRIHO MUITO LONDA 

U 190 ■ 

6D i;aAVEM-r;HH"&Q".l,C,I JQO DATA QTBING MUITO COMPLEX*, 

70 ■ 1HP0S5IUEL CONTINUAB, OAOO IBHED 

60 D/iIA Bf>,7t.27,Ol.,3t,3D,e0,0Q, ui.aR r40 AKaUIUO, ARaUIVS M AUER 

GB,BF.ni,BF.CE,OO,Ce,34,10,?E,AE yO, DISPOSITIUO EHHAQO 

,3*,0F.fiF,5«,3«,0*,Cl,03,24,0*,7 jjo ■ 

E.^B,9F,A6.0C,68,8l,FC,27,2C,eD. 22u ooTA EBRO DE BKAVACAO/LEITUB 

AD.D3,3«,10,B0,AV,aB.BU.UD,t:fL ft, nOOO Ot fikiiUiyO CHHADO, AB9UI 

90 ' uo NAO ADEBTO, DADO APOS FIM DO 

loa DATA Bo,Bv,Au,3b.in.:o,D'i.O£ .\RBuiut;, lubiBJCAO umeiA em aro 

.Ai,fia.cfl,34,-«;:,4F,i;4,aD,2B.fia,E uiwo. fuhcao indefinida 
^ , BO, aw, a i.js. 12, a:'. 8.1.27,02,60, 



faz sentir. O programa, da mesma forma, apenas avisa onde 
um erro foi observado; cabe ao humano usuario, mais uma vez, 
tomar as medidas necessdrias. 

A( pode nSo haver outro jeito a nSo ser tentar outra vez e 
esperar que o nucro volte daquela sub-rotina que nao existe. 
A sorte 2 que, ao contrario de nos, ele nao se cansa, e no mais 
das vezes, nao parece ficar muito chateado com isso. ^ 



Cliudio Costa 4 Desenhista free-lancer e tern como hobby a programa- 
fao ete microcomputadores. 



Quem tern tradkao 
em software, tem tudo. 



fo^n?. 



ot 



P^GA' 



M«"° 



%z.n^ 



Faz a Foiha de Pagamento de sua 
emprssa. emrtindo relatdrios coma 
Guia de lAPAS. Guia de FGTS. RelagSo 
de Empregados. Rela(^ao para I.R.. 
Rela^lo para Banco. Intorms de 
Rendimentos, Acumuiados Anuals. 
RAIS e Recibo de Pagamento. A foIha 
pode ser semanal ou mensal. As 
tabalas sao modlticadas pelo prdprio 
usudrlo. 

Pormi1etamb6m. adiantamentos de 
sal^rio, reajuste salarial. alleraQOes de 
acumuiados e oulras tungdes que 
agillzem o processamento da FoIha de 
Pigamenio da empresa. 



;oHt^* 



uoAoe^ 



%z.n^ 



A Contabllidade de um mes em apenas 
2 horas! Este Sislema permrte o 
cadastramento de tiistOncos 
padronizados e de piano de contas 
com ate 5 niveis. 
Emne Diario.HazSo. Balancele. 
Balance. Oemonstragdo de 
Resultados. Demanstrapao de Lucros 
e Prsjuiios acumuiados. Lislagem por 
centre de custo e extrato de contas, 
entreoutras tungtes. 



^^^i 
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52.190 



Controla o estoque de ilens com 
Especificag^o, Esloqus Minima. 
Unidade. Fornecedor, Localizagao e 
oulras intormagOes relacionadas no 
item como Custo M^dio, Eniradas e 
Saidas no periodo. etc. 
Fornece Listagens Geral e Parclal dos 
produtos. Listagem Fisico-Fmanceira. 
Listagem dos produtos abaixo do 
es'.oque minimo, Lisia de PrsQas e 
Ellquetas. entre oulras. 
Admite lambem, Reajusle de Precos. 
Alteragjo de Dados e Exclusdo de 
Produtos. 



CampiltvBis com at llnhis TR5-80 e Appls. Timbim dispontveis para IBM-PC Ptocure-nos para maiores intornia;Oes 



A NASAJON oterece asslslEtnc<a 
tdcnica total, garantia permanente e 
mantem a sua disppsigdo 
programadores e analistas para 
desenvDlver sistemas espsclticos sob 
encamenda. Conte com a NASAJON 
SISTEMAS 
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Av. RioSranco. 45 -Grupo 1.311 
Rio de Janeiro -CEP 20.090 
Tels.: (021) 263-1241 233-0615 
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VERSAO I (precos sobconsultal 

2 drives, slims, FD/DD. 320 kbytes 
VERSAO II 

1 drive FD/OD, 320 kbytes memoria 
RAM e Winchester 5 Mbytes. 

VERSAO III 

1 drive FD/DD, 320 kbytes memoria 
RAM e Winchester de 10 Mbytes. 

VERSAO IV 

1 drive FD/DD, 320 kbytes memoria 
RAM e Winchester de 15 Mbytes. 



EXRANSAO DE 
MEMORIA 



Placa expans§o de 320 kbytes, ex- 
pandindo ate 640 kbytes de memo- 
ria RAM P/SP16 . 



(011) 2237388 



• Place de CP/M 
'p/SP-16 com 64 kbytes. 
Transforma restante da me- 
m6rtaem RAM DISK . 



Cabos de ligapao micro/impressora 

* IBM e marca registrada da Interna- 
tional Business Machine 



PROGRAMAS- SP16 
COMUNICACAO E CP500 CP/M 



SP16 
PROLOG ICA 



COMPATIVELCOM 
IBM PC/XT 



Placa rede de comunicacao NCT- 
7301, p/interligar v^rios SP-16. 

- Placa emuladora de terminal IBM 
3278/3279 NCT-7101 PCOX. 

- Placa de comuntcapao BSC3 NCT- 
7501 

- Placa emuladora de terminal IBM 
3278/3279 NCT-7201 IRMA. 

- Placa BACKUP disco rfgidop/video 
cassete NCT-6201 



ASSISTENCIA 
TI^CNICA 



Direto: (Oil) 220-5794 

Consertos e contrato de manutenpao. 



MICROS 



• CP500 022D-M80, 1 drive FD/DD, 
DOS-500, CP/M 80 colunas. 

• CP500 023D-M80, 2 drives FD/DD, 
DOS-500, CP/M 80 colunas. ■«■ 

• CP400 color II 64 kbytes. KS 

• CP200S, 16 kbytes. (precos sobconsultat 



INTERFACES E 
PERIFERICOS 



Software video texto p/CP 500 

Modem EMBRACOM 

CP532C(RS232/CP500) 

Serial 300 

Joystick CP400 

Monitor colorido p/SP16.sob consulta 

Placa CP/M p/CP500 M.80 com 128 

kbytes RAM 



Controle de estoque 

Contabllidade 

FoIha de pagamento 

Contas a pagar e receber 

Cadastro de clientes 

Mala direta 

DATAF LEX mono e multiusuario 

8e 16 bits 
CONSULTE OUTROS SOFTWARES. 



SUPRIMENTOS 



Diskettes 5 1/4" caixa com 10 unida- 

des FS/DD 

FD/DD 

Formul^rio contmuo 1 via: 

80 colunas (milh.l 

132 colunas {milh.) 
Pitas p/impressora: 

P500 

P720 

P740 
Mesa p/computadores 
Estabilizadores de tensSo: 

0,8 kVA 

1,5 kVA 



IMPRESSORAS 



P500S paralela ou serial 150 CPS, 80 
colunas, caracteres normals, compri- 
midos e expandidos, grafi co co mpati- 
vel com MX-80 , R^ 

• P720 paralela e serial 200 CPS 132 
colunas e compaifvel com MX-100. 

• P740 paralela e serial 400 CPS, 132 
colunas . (prepos sob consulta) 
DBS.: Impressoras P500 e P720densi- 
dade grafica compati'vel com graficos 
LOTUS 1, 2, 3, Picture Graphic, etc. 




FILCRES ELETRONICA ATACADISTA LTDA. 

Rua Aurora, 165/179 - Sao Paulo — SP — Estacionamento proprio 
Tels.: Vendas (PBX) 223-7388 - 222-0016 - 223-7234 

TELEXlOm 31296 



[Revendedores autorizados 



BAURU-SP KSm 

Microldgica Tfi I0M2TJ3-CM3 

BELO HORIZONTE - MG 

ComouifOnixTel (0311225-3305 

Digilogica Tel. 1031 1223-4966 

CAMPINAS -SP 

Sot! En Byte Tel 10193152-6369 

CAMPO GRANDE -MS 

New Line Tel (0671382-0682 

CATANDUVA - SP 

Catanduva 

M&quinss Tel (0175122-6167 
CURITIBA -PR 
CSn 761(04)1232-1750 



FERNANDOPOLIS- SP 

Compsfiow Tel 101 74)42- 1697 

FORTALEZA-CE 

Sitcomp Tel (085)244-4911 

goiAnia-go 

Soil New Tel 10621324-9322 

GOVERNADORVALADARES 

MG 

Compotron TeK0332l21-8412 

NATAL - RN 

Maximicras Tel (084)222-8918 

POPOS DE CALDAS - MG 

Micro Pocos Tel (035I72M883 



PORTO ALEGRE - RS 


[adoras 


Tei.(01l>670-)555 


SOS Tel. (01 1(826-0456 


Herco* Tel, (0512)25-4923 


Bomi Microcompu- 


SAO VICENTE - SP 


RECIFE -PE 


todorei 


Tel, (01)193-1 T02 


Aiie-Reso- 


Croma Tel (081)325-3493 


Ciriy Micros Teii lOlD 


lufao Te: (0132)67-2496 






831-0944/832-9458 


TAUBAT6 - SP 


RIO DE JANEIRO- RJ 


Iguaiemic'o 


Tel .(011)815-9701 


Ensicom Tel 10122)33-2944 


Sinclair Place TeI (0211649-2699 


Garra 


Tel, (01)1884-3042 


UMUARAMA - PR 


Sisteco Tel (02U2209613 


NC Mic'r> 


Tel 1011)533-4388 


CBM Tel, (0446123-2233 


SAO BERNARDO OO CAUPO 


Oous InlQirnO- 


VITORIA-ES 




iica 


Tel.(OI) 1373-5757 


Casa do« Tele- 


Micro's Tal (0in448-6234; 


Provsc 


Tei. (011)274- 5861 


fones Te( (0271222-5011 




Tropical 


Tal (0)11543-9859 


Campotoft TbI. (027)222-5758 


SAO PAULO - SP 


StSBC 


Tel, (011)283-08 53 


WR Compu- 


Benny Microcompu 


Cistec 


Tel, (0)1)288-5413 


iador»s Tel. (027)2253 144 



Nesta ultima ligao do curso, voce vai ver como funcionam os 
compiladores. Aprenda, ainda. como se pode construir um. 



Curso de FORTH (VII) 
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Compita^ao de URI ... OEM 



Figura 2 



Antonio Costa- 



Uma das caraclen'stjcas mais interessantes do FORTH e 
a extensibilidade, ou seja, a possibilidade do progra- 
mador acrescenlar recursos ao compilador. Para fazer 
isto, eniretanto, e precise entender como um compi- 
lador funciona. 

Basicamente. compilador e um aplicativo que traduz progra- 
mas de uma linguagem para outra. A Unguagem na qual os pro- 
gramas originais sSo escritos e chamada linguagem fonte, e a 
linguagem para a qual eles sio traduzidos e denominada lingua- 
gem objeto. 

A linguagem fonle quase sempre tem caracten'sticas desii- 
nadas a meOiorar o desempenho do programador. Entre estas 
caracten'sticas estao a facilidade de aprendizado e a capacidade 
de detectar erros. A linguagem objeto, por sua vez, e especifi- 
cada de modo a ser faciimente executada pelo computador. 

Do que foi dito, conclui-se que o computador nao executa 
programas em FORTH tal qua! voce o concebe. que a mi- 
quina executa e a tradugSo dos referidos programas para a lin- 
guagem objeto. 

UMA LINGUAGEM OBJETO 

Vamos descrever brevemente uma linguagem objeto propos- 
ta por Lollinger e usada nos FORTHs publicados em MICRO 
SISTEMAS. Os principais comandos dela s§o: 
'ELSE - Salto incondicional para a frenle. Se o computador 
encontra um 'ELSE, ele salta um determinado niimero de ins- 
tru^Oes. niimero de bytes do salto deve ser mdicado pelo 
conteiidc da celula que segue o 'ELSE. 

'WHILE - Salto incondicional para tras. 'WHILE e seme- 
Ihanle ao 'ELSE, mas provoca o salto para tras e nao para 
frente. Ver figura I. 

*IF - Salto condicional para frenle. O 'IF causa um salto para 
frente, mas so quando houver no topo da pilha. Como no ca- 
so do 'ELSE e do 'WHILE, a amplitude do salto ^ indicada 
pelo conleudo da celula que segue o 'IF. 

END - Salto condicional para tras. O 'END controla, da 
mesma forma que o 'IF. um salto quando encontra no lopo 
da pilha. O salto de 'END. contudo, e para Iras. Observe a fi- 
gura 1. 



60 



'DO - Esta instm^ao transfere dos inteiros da pilha para o re- 
torno. Estes inteiros serSo os contadores de um la^o repetitivo. 
'LOOP - Incremenla o topo do retomo e, se ele nSo se tomar 
igual ou maior do que o vice-topo, provoca um salto para tras, 
comprimento do salto 6 indicado pelo conteudo da celula 
que segue o 'LOOP. 
( - Esta instru?5o imprime a cadeia de Oaracteres que a segue. 
O comprimento da cadeia deve preceder os codigos dos carac- 
teres. 
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Cada caizlnba represeota uma celula da 
memorta ODde estao armazeDadas ms. 
trusses em linguagem ob)eto As setas 
mostjam a sequencia seguida pelo com_ 
putador para ezecutar as insUu^oes 
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Figura I 



COMO CONSTRUIR UM COMPILADOR 



Vamos fazer agora uma pequena brincadeira, a saber, in- 
ventar uma linguagem com palavras-chaves em portugues. Isto 
sera facil: basta acre seen tarmos ao compilador FORTH as pala- 
vras e as estruturas de controle de nossa linguagenzinha. 

A primeira estrutura que definiremose a VAI... VEM. Esta 
estrutura e equivalente ao DO... LOOP do FORTH normal. 
Antes de defini-la, porem. seria bom que voce teclasse as defi- 
ni^Oes dadas na listagem I. Aqui esta a defmi9So de VAI... 
VEM: 

: VAI COMPILE 'DO HERE; IMMEDIATE 

; VEM COMPILE 'LOOP HERE - C, ; IMMEDIATE 
Vamos ver como ela funciona. IMMEDIATE acrescenta ao 
compilador a ultima paJavra que voce digitou. ConclusSo: tan- 
to VAI quando VEM foram inclui'das no corpo do FORTH. 
Para perceber as conseqiJencias disto, siga passo a passo o pro- 



cesso de compUa^So da palavra que se segue. 

:DIGITOS 10 VAI I .VEM; 
De comeijo. o niimero 10 e compilado, isto e, transformado 
em binario e cotocado no fim do dicionario. Para que o com- 
putador n3o o confunda com instrugOes, a palavra # e colo- 
cada antes dele. A mesma coisa acontece com o 0. conforme 
mostrado na figura 2. Quando DIGITOS for executada. a op- 
(;3o de ' # sera empurrar o niimero que a segue na pilha. 

O passo seguinte do compilador e executar VAI. Isto fard 
com que 'DO seja compilado, Ademais, o HERE colocari na 
pilha o endere^o da celula que segue o 'DO. Recorde-se que 
HERE fomece o endere90 do fim do dicionario e que a ultima 
coisa inserida no dicionario foi 'DO. 

Neste ponto, as palavras entre VAI e VEM sSo compiladas. 
Chega, enfim, o momento da atua^ao de VEM. A palavra 
'LOOP e posicionada como estd esquematizado na figura 2. 
HERE joga na pilha o enderefo que segue 'LOOP. Subtraindo- 
se deste endere^o aquele que foi empilhado por VAI, obtem-se 
a distancia entre 'DO e 'LOOP. Tal dislancia^ guardada logo 
ap6s o 'LOOP. O resuitado final e que a palavra DIGITOS 
com VAI... VEM funciona como se houvesse sido definido as- 
sim: 

: DIGITOS 10 DO I. LOOP; 

Na listagem 2, voce encontrara a defmi^So de mais tres es- 
truturas; 

REPITA-..ATe - Esta estrutura e equivalente ao BEGIN... 
UNTIL. 

REPITA...ENQUANTO...DENOVO - Funciona de forma 
identica ao BEGIN. ..WHILE.. .REPEAT. 
SE-F0R...SE-N30,..DEP0IS - Estas palavras sSo anilogasao 
IF... ELSE... THEN. 

Estude as estruturas acima e, com uma analise semelhante a 
que fizemos com VAI. . .VEM, procure entender como elas fun- 
cionam. 
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PiguraS 



Na listagem 3, encontram-se defini?5es cuja finalidade 6 dar 
nomes da lingua portuguesa is palavras do FORTH. Assim ^ 
que PAGE passa a ser chamada LIMPA. E quando, durante a 
defini^ao de uma palavra, o FORTH encontrar DESCARTE, 
ele compUar^ um DROP. Atente, contudo. para o fato de que 
DESCARTE so poderi ser usada em tempo de compUafSo, isto 
6, entre os dois pontos e o ponto e vi'rgula. 

At6 agora nos limitamos a incluir na listagem que estamos 
inventando recursos que ji existem no FORTH. Nada impede, 
por^m, que inciuamos estruluras novas. Veja esta per exem- 
pto: 

UM 1; 

INCREMENTA 1 + 

VEZES COMPILE INCREMENTA COMPILE UM 

COMPILE "DO HERE; IMMEDIATE 
•OUTRAVEZ COMPILE "LOOP HERE - C,; IMMEDIA- 
TE 
Observe a defini^So que se segue: 

: TESTE 5 VEZES I. OUTRAVEZ; 
Ao acionar TESTE, executaremos I seguido de ponto 5 vezes. 
Por sinal, a palavra CODI da listagem 3 tamb^m nSo existe no 
FORTH, mas 6 muito util. Ela compila o codigo da ietra que a 
segue. Por exemplo; 

: TRESLETRAS CODI A . CODI B . CODI C .; 
A palavra TRESLETRAS imprime o c6digo das letras A, B e 
C. Agora nSo precisaremos mais tentar nos lembrar de c6digos 
ASCII! 



: IINHR 4 um EMIT UtM ; 

: Util 1 1 t2t M« IIS 144 LINMa ; 

I ' *\i 



: HIDI2 141 156 IS! 141 LINHR ; 

I ^ — i-a 4 

'BiBi 

:IIHIM 129 149 157 121 tlNHH ; 

I ' ^i 



: anOI4 153 tSI 149 l» IINHH ; 



-*piiBaaiK3 



: ROIBI (l5 emit) 

4 25 PIC iBBDM - 

5 25 PIC liaiOI2~ 

6 25 PIC R0B0I3- 

7 25 PTC ROaOM : 




Necesttrlo 
i6 na CP-SOB 



[mprtma o robo sempre do rnesino lugar da tela 



Figura4 
G3 



OUTRAS LINGUAGENSOBJETO 

Como era de se esperar, nao existe s6 uma linguagem objeto 
para todas as versaes do FORTH. Os chamados compiladores 
de c6digo native, por exemplo, usam como linguagem objeto a 
pr6pria linguagem da maquina onde estSo instalados. Este e o 
caso do GRAFORTH e do HS FORTH. £ por isso que o HS 
FORTH € t§o rdpidol 

meihor modo de descobrir o funcionamento da linguagem 
objeto de seu FORTH i examinando as defini?Oes de palavras 
reservadas como DO. ..LOOP, BEGIN. ..UNTIL e IF. ..EL- 
SE... THEN. A defini^ao destas palavras e sempre fomecida 
com OS compiladores, pois os vendedores de software sabem 
muito bem que todo programador FORTH € um curioso e 

?uer saber como a linguagem trabalha. No caso do MMS-FOR- 
H, por exemplo, a fonte de todas as palavras reservadas esti 
no disco de distribuic3o. Foi U que descobri que o BEGIN... 
UNTIL do MMS FORTH 6 definido assim: 
: BEGIN HERE ; IMMEDIATE 
: UNTIL COMPILE [3 MMS ,] , ; IMMEDIATE 
V^rias coisas podem ser deduzidas facilmente desta deflnigffo. 
Em primeiro lugar, [3 MMS,] deve ter o efeito de compilar 
um saito condicional e, portanto, i equivalente ao "END. No- 
ta-se, entretanto, que o enderefo deixajlo por BEGIN i pos- 
to na frente da palavra compilada por [3 MMS,] . Istoindi- 
ca que o salto deve ser absoluto, ou seja, deve ir para um en- 
dere^o especificado em vez de apenas cobrir um determinado 
niimero de bytes. Com estas infomia95es, ']i podemos defmir 
REPITA. . .AT6 em MMS FORTH : 
: REPITA HERE ; IMMEDIATE 
:AT6 COMPILE [3 MMS ,1, ; IMMEDIATE 
Em grande numero de versoes do FORTH padrSo usa-se a 
seguinte linguagem objeto: 
(LOOP) ~ Equivale a "LOOP 
(DO) - Equivale a *D0 

BRANCH - Faz tanto o papel do "ELSE quanto o do 
•WHILE. 

OBRANCH - Opera como MF e como 'END. 
FORTH do Macintosh € padrSo e usa a linguagem objeto 
que acabamos de descrever. Cuidado, por^m. As c^luias do 
Macintosh sSo duas vezes maiores que as do TRS-80 e do Sin- 
clair, e, por isso, devemos substituir | C.| e | C! [ por pala- 
vras aue manipulem c^lulas duplas. Estas palavras sSo: | W, | e 
j W! [! Isto feito, as defini^Ses da hstagem 2 ficam assim: 
VAI COMPILE (DO) HERE ; IMMEDIATE 
VEM COMPILE (LOOP) HERE - W, ; IMMEDIATE 
REPITA HERE : IMMEDIATE 

AT^ COMPILE OBRANCH HERE - W, ; IMMEDIATE 
SE-FOR COMPILE OBRANCH HERE W, ; IMMEDIATE 
SE-NaO COMPILE BRANCH HERE W, 

SWAP HERE OVER - SWAP W I ; IMMEDIATE 
: DEPOIS HERE OVER - SWAP Wl ; IMMEDIATE 

O ROBO dan(;ante 

Vamos fazer um programa interessante. Com ele, vocfi 
pode tocar piano pelo teclado de seu computador. Enquanto 
voce toca, um pequeno robo dan9a no vi'deo, acompanhando o 
ritmo da musica. 

Para comefar, deixarei para voce a ficil tarefa de escrever 
programas que desenham o robo em diversas posi^Oes de dan- 
5a. Os programas ROBOl, R0B02 e R0B03. por exemplo, 
desenham os robos mostrados na figura 3. £ claro que, em ma- 
quina sem alta resolu^So, n3o se consegue o ni'vel de detalha- 
mentoda figura 3. 

Para definir as palavras que desenham os robos, usa-se o m^- 
todo explicado na li^So IV, MS n 9 52, e exemplificado com a 
minhoca egipcia. Aqui, porem, surge um fator complicante. A 
minhoca pode ser feita em um linica linha de caracteres grifi- 
cos enquanto o robo precisa de varias linhas. A soluijSo mais 
direta para o probiema, embora nSo a mais elegante, 6 defmir 
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uma paJavra para cada linha. As varias linhas s3o combinadas 
como mostrado na figura 4. para o caso do TRS-80. Nesta fi- 
gura, PTC e usado para garantir que todas as posi^Oes do robo 
sejam impressas sempre no tnesmo lugar. Se sua maquina d Sin- 
clair (ZX81). e possi'vel imprimir os caracteres que formam 
uma linha do robo digitando-os diretamente do leclado e colo- 
cando-os entre as aspas da estrulura i .".. ." | . 

Associemos agora uma tecla e uma versSo do robo a cada 
nota musical dennida na li^So I (MS n? 49). A associa^So e 
feita com palavras como as defmidas na listagem 4, que voce 
deve estender para incluir todas as notas. Aten^So, poremi 
Ao acrescentar uma nova palavra, coioqije a anterior entre o 
SE-NaO e o DEPOIS. Por exemplo, eis a defmicao de TEN- 
TE-SOL: 

; TENTESOL DUP CODI E = 

SE-FOR TOQUE SOL MOSTRE R0B03 
SE-NaO TENTE-FA DEPOIS ; 
Veja que a paJavra defmida antes de TENTE-SOL foi TENTE- 
FA e, por isso, ela aparece entre o SE-NaO e o DEPOIS. A 
id^ia desta cadeia de definigOes pode ser entendida notando 
que TENTE-SOL verifica se o codigo no topo da pilha ^ o da 
letra E. Se for, a nota sol e executada e, se nao for, chama-se 
TENTE-FA para comparar o topo da pilha com o c6digo de D, 
Caso TENTE-FA tamb^m faihe, TENTE-MI seri chamada, 
eassim por diante. 

Finalmente estamos prontos para a defmi9ao que fecha este 
curso: 
: PIANO 15 EMIT LIMPA REPITA LEIALETRA TENTE-SOL 

AT6; 
15 EMIT apaga o cursor do TRS-80 e nSo precisa ser usado em 
outra maquina. 

PALAVRAS 00 FORTH PADRAO 

Neste curso. tentei manter-me prdximo do FORTH padrSo. 
Virias vezes, porem, nao o segui na tentativa de permitir aos 











Listagem 1 






HEH 




: COMPIIE •#•#.■.-».,; IMMEDIRIE 


CRERK *DD 


f No IRS-SO tecle a linha BDaiHol 


6104 ' *00 ! 


( No Sinclair ^H Bl lecle a linha ahaiHo) 


bB93 - -DO ! 


CRERIE ■LOOP 


( No IRS 80 tecle a linha abaiHo) 


6I?6 ' -lOOP ! 


( No Sinclair Spectrum lecle a linha ahaiHo) 


5815 ■ -lOOP ! 



Listagem 2 



MMEDIfllE 
IMMEDIRTE 



URI COMPIll •DO HERE ; IMMEDIRTE 

UEM COMPILE 'LOOP HERE - C. ; IMMEDIRTE 

REPITR HERE : IMMEDIRTE 

RT* COMPIIE -END HERE C. 

SE-FOR COMPILE "IE HERE C. 

SE-NiO COMPILE *EISE HERE C. 

SUfNP HERE ODER SUIRP C! ; IMMEDIRTE 
DEPOIS HERE ODER SDIRP C! ; IMMEDIRTE 
ENDURNTO COMPILE -IF HERE D C. ; IMMEDIRTE 
DENOUD COMPIIE *IIIHILE SUJRP HERE C. 

HERE ODER - SUIRP C* : IMMEDIRTE 



Listagem 3 



DECIMRL 

HOUI HERE ; 
NOUR LINHR CR ; 
RIOQDE HLLOT ; 
IIMPR PH6E ; 
LEIR-LETRR KIV ; 
lEIH CRDEIR TOKEN ; 
DESCRRTE COMPILE DROP ; 
IROqUE COMPILE SUIRP ; 
CODI COMPILE •* RSPRCE 



IMMEDIRTE 
IMMEDIRTE 
LI IH CRDEIR 



RQUI I* C@> 



IMMEDIRTE 



Listagem 4 



: TODDE DESCRRTE SM ; 

CONSTRNT MOSTRE 

: TENTE-OOH DUP CODI fl = 

SE FDR TODDE DOH MOSTRE ROBOI 
SE NaO DESCRRTE 1 DEPOIS ; 
: TENTE-RE DUP CODI B = 

SEEOR TOOUE RE MOSTRE RDB02 
SE-NaO TENTE_DDH DEPOIS ; 
: TENTE-MI DUP CODI C = 

SE-FOR TOQUE Ml MOSTRE R0B03 
SE-NiO TENTE-RE DEPOIS ; 
: lENTE-EH DUP CODI = 

SE-FDR TOQUE FR MOSTRE ROBO? 
SE-NaO TENTE-MI DEPOIS : 



leitores usar os compiladores publicados em MICRO SISTE- 
MAS. Para remedial isto, fome^o abaixo algumas palavras 
do FORTH padrSo e as comparo com as usadas nas li^Des. 
EXPECT - Espera dois argumentos na pilha. primeiro ^ um 
endere^o e o segundo, um inteiro menor que 256. Le caracte- 
res do teclado e os coloca nas c^lulas que come^am no ende- 
re90. A leitura termina quando fordigitado retomodecarroou 
quando o nOumero de caracteres lidos for igual ao inteiro menor 
que 256. Equivale a INPUT. 

WORD - Da mesma forma que TOICEN, !e uma cadeia de ca- 
racteres ate encontrar um cujo c6digo ASCII esteja no topo da 
pilha. Diferentemente de TOKEN, contudo, deixa na pilha o 
endere^o onde a cadeia lida foi colocada (geralmente no fun 
do diciondrio). 

EXECUTE - Executa a palavra cujo endere90 es\i no topo da 
pilha. Equivale a EXECUT. 

FIND - Fomece o endere90 de execu^ao da palavra que a se- 
gue. Assim, se eu teclar FIND UP, o endere^o de DUP 6 deixa- 
do na pilha. Este enderefo pode ser usado por EXECUTE para 
disparar DUP. ap6slrofo dos FORTHs de MICRO SISTE- 
MAS tern comportamento identico ao de FIND. 
CREATE - Equivale ao <BUILDS. 

(LIT) - Colocado na frente dos niimeros compilados para avi- 
sar que o computador nao deve execut^-Ios. Tern o mesmo pa- 
pel que ' # nos FORTHs publicados em MS. 
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OUIVEIRA, R. DA S.. ColefMo 
de Programas para MSX, Aleph 
Editora. 

Dirigido espectf icamente a usua- 
rios que nao conhecem computa- 
gao, este livro se baseia no princi- 
pto de que, em programagao, 6 
preciso, antes, usar o computador 
e, s6 depois, estudar teorias. 



Desta forma, ele introduz o 
intciante ao universo do micro- 
connputador atrav^s de dois breves 
capfiulos: Digitagao e Edicao e 
Gravapao em Fita. Apos le-los 
atentamente, o usuario jd pode 
partir para a pratica, digitando 
OS programas, mesmo sem cwn- 
preende-los inicialmente. Esses 
programas sao bem simples e cur- 
tos e apresentam comentarios res- 
saltando suas particularidades e 
destacando as tunicas emprega- 
das. Dentre eles estao: Two 
liners gr^ficos; Nautilus; Tank; 
Perspectivas; Picasso e Two-liners 
sonoros. 



Ml RSH AWKA, V., Grificos no 

TK90X. Edttora Nobel. 

O Itvro apresenta programas 
em BASIC capazes dedemonstrar 
ao leitor as potenciaUdades grlfi- 
cas do TK90X, embora nao de ex- 
plicapdes detalhadas sobre as ins- 
trucSes, 

Os programas sao ao todo 31 
e estao ligados a areas como Ma- 
tematica, Ffsica e Desenho, possi- 
bilitando a obten^ao de espirais; 
circuitos eletronicos; visao tridi- 
mensional dos corpos e biorrit- 
mo, entre outros. 



ADOAIR. P., Irxio al4m com o 
CP-400 Color, Editele, 

livro e um suplemento ao 
manual do CP-400 Color e visa 
permitir um uso mais eficiente 
do equipamento atrav^ da avalia- 
gao dos seus recursos avar>cados 
de programapao, video, disco e fi- 
ta. 

Para cada recurso avaliado 4 
apresentado um programa, que 
pode ser executado separadamen- 
ie ou agrupado, possibilitando 
assim novas aplicapSes. 



BANK, B., BASIC Manual de 
Conversdes. Ao Livro T6cnico 
Editora. 

Este d um guia capaz de aju- 
da-lo na conversao de programas 
entre os micros ds linha Apple, 
TRS-80 e Pet. livro 6 dividido 
em tres capftulos desttnados a e- 
quipamenios especificos. Em cada 
um deles sao apresentados os-co- 
mandos do equipamento em pau- 
ta, OS comandos do equipamento 
para o qual se deseja fazer a con- 
versao e, ainda, alguns comenta- 
rios sobre eles. Logo a seguir, sao 
abordadas as peculiaridades de ca- 
da linha. 



JAMES, M., InteligSncia 
Artificial em BASIC. Editora 
Campus. 

Esta 6 uma obra introdutoria 
a InteligSncia Artificial. Nela sao 
abordados alguns pontos impor- 
tantes sobre o assunto e discuti- 
das as possibilidades de suas apli- 
cagdes nos dias de hoje. 

As iddias apresentadas no livro 
sSo acompanhadas por programas 
que ilustram os miiodos. Por se- 
rem escritos em linguagem BASIC, 
OS programas permitem o enten- 
dimento por um grande niimero 
de leitores. 
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Linha APPLE 



Grafico 
tridimensional 

Este programa faz um grifico 
que parece saltar da tela. E 6ti- 
mo para ser inserido no final de 
seus programas, dando um toque 
pessoal. 

5 HGRS : HCDLOR" 3 

10 ROT- O 

ZO FOR 6 =■ 1 TO 64: BCALE= G 

30 DRAW 1 AT 140.96: NEXT 

40 POKE 232.0: PDkE 233.3 

50 FOR X = 7bB TO 791:1 

fcO READ v; PO^E X.y: MEXT 

70 DATA 1,0.4,0.36. 172. 46,46. *.2, 

246.228.22. 7-9. 56. 246. 32. 39. ; 

7. 37, 12,54,6.0 
BO GET Flri»: TEXT : HOME 



MArio CMar Franchi - SP 



Linha TRS-80 



Pontuagao monetaria 

Use esta dica para pontuar valores 
monetirios em niimeros de at^ 16 al- 
garismos. 

1'.' CLEAR lOOQ 

20 CLS: INPUT-DIGITE UM NUMERD":Nlt 

7o C*=STR*(NII1 :G0SUE'92 

40 PRINTCS 

SO PRINTi»B60. : 1NPUT"0UTRA CONSUL TA 

S/N'-JM* 

60 lFM*="S"THEN2OELSEEN0 

92 IFLEN<C«> =4THENRETURNELSEF0RX1 

=LEN(C»)-tT0!STEP-3: IFXl' ■^3THEN94E 

LSEJ»=". '■*MiD« fc«. Ji i-i, 3) *j«:ne>;t 

94 IF)tt=0THENKl-'4ELSEXl=-)(l*l 

96 c»=MiD«(C«, 1 , xn ♦J* 
9B J»=-'":n»=m:return 
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Linha SINCLAIR 



Abertura de programas 

Rode esta dica no seu Sinclair e 
verd que ^ uma abertura interessante 
para qualquer programa. 






■- 1 ; c ; 

■ISTffHfll 



a at 



lie 
i!a 

16* 



'oc e.i; Tc 1* sTiB -1 
■-CT :,i.,T ,11 J, . ,^g^ ., 

•OC a.l t;, j.b„ ;, 

■Gfi B»il TO li ITCC -J 

FPInT a- s.C CSiOi AT 6 c 



EfllUT i- 8 

LET c.;-i 



Paulo Hsnrique Juriisto — SP 



LINHA ZX81 /FORTH 



GRAFCOD 

Este comando em FORTH lista no video os caracteres grdficos do seu 
ZX8I, com seus respectivos cbdigos em decimal, hexadecimal ou qualquer 
outra base de numera^So, bastando --.zll"-.^ 

apenas especific^-la antes de dar o -=.yi~''^ ---zi-^-^ cos -flPcicTERE^ 
comando GRAFCOD. 

2 BASE S GRAFGOD. 



iPIID: 



Fabio A. Rodrigues Correa - SP 
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L • PTC 

I Ell- 
L * 16 PTC 
!■ C'U=- . . 

: co= 



EMI- 



clicOl 
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Envie suas dicas para a Redapao de 
MICRO SISTEMAS na Av. Presidents 
Wilson, 165 - grupo 1210. Centra, Rio de 
Janeiro, RJ. CEP 20030 



Linha 



MC 1000 



Linha 



COLOR 



Warm Start 

Acrescentando k di- 
ca publicada em MS nP 
45 (PEEKS e POKES 
no COLOR), informo 
que para se conseguir 
um Warm Start prepara- 
do no computador, de- 
ve-sedigitar:P0KE113, 
85 e em seguida RESET. 



Farnando Montairo 
Guarrero — MG 



Mensagem de erro 

Quando hi problemas em um 
programa e voce est^ num dos mo- 
des gr^ficos do MC 1000 fica diff- 
cil ler a mensagem de erro pois ao 
voltar para o modo TEXT, nor- 
malmente 6 executado um HOME 
antes. 

Mas, com esta dica, voce pode- 
rd ver facilmente qual foi a men- 
sagem: 

Primeiramente, vamos provocar 
um erro no modo GR: 



10 GR: COLOR = 
20 PLOT 0,0 T 



1£5,.0 



Como podemos observar, a li- 
nha 20 passou OS Umites do modo 
GR e para que o erro ocasionado 
possa ser visto, digjte DEBUG. 
Ap6s ter visto o erro, volte ao 
BASIC e digite TEXT. 
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Linha TRS-80 



POKES no CP 300 



Tenho um CP 300 hi um ano e 
estou enviando algumas dicas sim- 
ples, mas que eu "apanhei" muito 
para descobrir. Por nSo possuir im- 
pressora, os programas de um ami- 
go que a tinha nunca rodavam no 
meu micro. Assim, estas dicas ser- 
vem para ajudar jovens programa- 
dores para que n3o "apanhem" 
como eu: 

Desvio do Vfdeo: desvia para a im- 
pressora toda informa^ao que nor- 
malmente aparece na tela: 
POKE 16414,141 : POKE 16415.5 

Desvio da Impressora: (I) - desvio 
aulomdtico de todas as instru^Ses 
que enviam sinais para a impressora. 
POKE 16422,67 :POKE 16423.0 
(2) - faz com que todas as instru- 
gOes LPRINT sejam direcionadas 
para o video. 

POKE 16422,88 :POKE 16423,4 
OBS.: N2o use os dois desvios no 
mesmo programa. Execute POKE 
16422,141 : POKE 16423,5 para 
voltar tudo ao normal. 

Nalion Lima Nmo — MG 



Linha TRS-COLOR 



Copia de seguranga 



Veja como tirar c6pias de progra- 
mas em linguagem de m^quina que 
nao tenham auto-execu^So. 

Siga as seguintes instru9des: 

1 - Carregue o programa em LM. 

2 - Digite as seguintes instru^Oes: 

? PEEK(487)"256+PEEK(488) 
? PEEK(126)'256+PEEK(127)-1 
? PEEK(157)'256+PEEK(158) 

DeverSo aparecer tres endere^os 
-1 ap6s cada instru(3o. 

primeiro enderefo indica o INI"- 
CIO do programa; o segundo indica 
o FIM e o ultimo, o endere^o de 
EXECUgAO do programa (EXEC). 

Seri util anotar os endere^os. 
Para copiar o programa, ap6s digi- 



tar cSAVEM seguido do nome do 
programa, dever3o estar os endere^os 
separados por vfrgulas ( , ), da seguin- 
te forma: 

cSAVEM "PROGRAMA", INT- 
C!0, FIM, EXEC 



ObservacOcs: 

1 - O nome do programa deverd 
ter no mlximo otto caracteres; 

2 — Algumas vezes, os enderefos 
de infdo e fim do programa coinci- 
dem, sendo mais provdvel que ocor- 
ram em programas de 1 6 Kb. 

Esta dica foi desenvdvida num CP 
400 Color, com 64 Kb de RAM. 



Auguito Andanon Brown Santoi — BA 



Linha 



ZX SPECTRUM 



Incrivel DRAW 11 

Em MS n9 50, vi a dica "O In- 
crfvel DRAW" e mesmo pensan- 
do que seria tolice eu a rodei. Fi- 
quei maravilhado com o poten- 
cial do comando. Assim, resolvi 
estudi-io. Ap6s algum tempo, 
descobri um efeito bem seme- 
Ihante, embora mais complexo. 

10 0'.>EB 1 PflPCR e eniCHT 1 
CL5 

se FOP . *S TO «BS ITCO 35 

3B INf RnC^S 

46 P-OT 30 se 

52 CRRu 1BB.0.PI4X 

60 NEXT . 

Carlos Alexandre da Silva — RJ 



Linha ZX81 



NhoC'Nhoc 

Este simples programa em BASIC 
TK pode, al^m de causar um bom 
efeito de explosSo em jogos, assustar 
um "leigo", fazendo-o pensar que a 
TV est^ estourando. O que causa 
tudo isto 6 a linha 30. O c6digo 126 
(numero) faz com que os pr6ximos 
5 bytes fiquem invisiveis, encolhendo 
o D-FILE. 

Para causar um efeito ainda me- 
Ihor, basta aumentar o volume da TV 
ou tigar um ridio FM em tomo de 90 
MHz, para ouvir um rui'do parecido 
com o de um caminhSo ou avi3o. 

Na linha 20 defme-se o inteivalo 
de linhas (22 a 7, no caso) onde quer- 



LINHA GERAL 



Bubie Sort 

Na listagem abaixo, voc€ ve 
um exemplo de SORT, que or- 
dena os caracteres da STRING 
AS. 



iff 


_ET flu iuERTvulOPASPFCIJf 




r.C'.'i .».->■■ 










ao 


■-■OSuB iOO 










iZ 


SpjMT £•% 










40 


I-5B 










100 


-CT N«LCH 


At 








113 


■OR F-1 TO t*.l 








i£e 


■OB ("■F.l 


TO N 








ISC 

70 

140 


:■ flt'Fi 


■ At IF > 


THEN 


GOTO 


1 


_rr L»-A» 


iF. 








130 


,.rr at .F' 


■ni^pi 








lee 


LET At IK 1 










1-0 


NfiT R 










ISO 


NC*T F 










190 


CCTUPN 











Experimente substituir as 
duas Unhas abaixo e compare a 
velocidade de execu^So. 



ISO FOB h.N TO F*l STEP -1 

130 IF A«.)'< lAtiFI THEN SOTO 1 



Esta rotina foi listada em um 
SINCLAIR, mas pode ser usada 
em qualquer micro, com modifl- 

ca^Oes mmimas. 



Marco Hanrlqu* Alexartdre Coita 
- RJ 



Linha TK 2000 



Reformuiando 
o iNKEY$ 

Esta dica atua como a fun^So 
INKEYS. Le o teclado e associa 
a tecla pressionada a uma vari^- 
vel, sem parar o programa como 
acontece com INPUT ou GET. 

A primeira parte deve ser di- 
gitada e executada no infcio do 
programa: 

lO HI MEN - 38367 

20 DATA 32.67,240, 141 ,239, MV.O'. 

30 FOR I ■ ZeZ&B TO 38^74: REI>I> 
A : po* (■: I , A : p4e x t i 

Si a segunda parte faz a leitu- 
ra do teclado. Pode tambtfm ser 
usada como uma sub-rotina: 

900I1 CALL :-B36e 

•JOKi ► •• PTEK (JBTBTi - 128 

9i-i;- If f ■ I TM(-N K ■ 12 

90 ... pit = CHR» U I 



Roberto Kato Parelra - ES 
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Linha 



ZX SPECTRUM 



Variaveis do sistema 

Aqui v3o algumas dicas que o 
ajudarSo a compreender melhor seu 
compati'vel com o ZX Spectrum: 
1 ?) Para verificar o n V de bytes 
ocupados por um determinado 
programa: PRINT PEEK 23627+ 
256 'PEEK 23628- PEEK 23635- 
256 'PEEK 23636 
2?) Para verificar o n9 de bytes li- 
vres na RAM; PRINT PEEK 23730 
+256 "PEEK 2373 1 -PEEK 23653 
-256 'PEEK 23654 
3?) Teste para saber se o micro 
tem 48 Kb: IF PEEK 23733=255 
THEN PRINT "48Kb" 
4?) Para eliminar o espa^o dos 
gr^ficos definidos pelo utilizador: 
POKE 23765,255 
POKE 23676.255 
CLEAR 65534 

Hamilton E- L de Souza - PR 



1 



se causar o efeito. Conv^m lembrar 
que OS POKES s3o feitos no ini'cio de 
cada linha, devendo-se evitar a im- 
pressSo de algo que ser^ reaproveita- 
doU. 

Para anular o efeito basta dar um 
GLS, POKEAR um c6digo diferen- 
te de 126 no local (um looping) ou 
entSo imprimir com PRINT, como 
no exemplo da listagem abaixo: 



ess' 



=CEE' Ic396*i56-PEE'' ■ 1 



p - ; ;■ 



iQ POP N=. 



•3j TO 



■-33 :"'E 



30 POi- E N 126 

aO hExT u 

se PPINT AT C 0. 

so FOP N = l T.: 2£ 

?0 PRINT ■■ 21 CflPi^CTEREi 113 

SO nE«T h 
oo GOTO £B 



FAbio Antonio Rodrigues Correa - SP 
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Os microcomputadores da linha MSX possuem um grande repertorio 

de comandos, muitos deles ainda desconhecidos. Desfrute deste potencial, 

valendo-se das principals instrugoes do MSX BASIC. 



Comandos do MSX 



-Oscar Julio Burd e Luiz Sergio Y. Moreira- 



Este € terceiro e ultimo artigo 
sobre o padrao MSX, e nele abor- 
daremos de maneira geral todos 
OS comandos do MSX BASIC. 
For uma questSo de objetividade, di- 
vidimos os comandos em 1 1 grupos se- 



gundo suas fungSes: uso em programa- 
fSo; som; entrada e sai'da; fluxo; uso ex- 
clusivo em grificos (esteji devidamente 
comentado no segundo artigo sobre os 
MSX, publicado em MS n 9 54); uso em 
texto; manipula93o de variiveis; mani- 



pula99o de mem6ria; tratamento de 

interrup95es; fun90es matem^ticas e 
outras. 

Note que o MSX BASIC possui mais 
de 180 comandos e fun^Des, sendo tam- 
bem a mais poderosa das linguagens 



TRATJMB>TO DE IVOUOUIKfita 



ERROR 

ISTEHVAL ON/OFF/STOP 
KBV (r\\ ON/OFF/STOP 
SPRITE OH/OFF/STOP 
STOP ON/OFF/ STOP 
STRIG ON/OFF/STOP 
OH ERROR GOTO 



ON INTERVAL 
ON KEY GOSUB 
ON SPRITE GOSUB 
ON STOP GOSUB 
ON STRIG GOSUB 
RE5UHE 



Ueo SI TEETO 



CLS 

COLOR 

CSRLtN 

LOCMB 

PRINT 

PRINT USING 



SCHEEN 

SPRITES 

SPC 

TAB 

WIDTH 

pos 

PUT SPRITE 



oniKta OSD8 



I 



BASE LET 

DGF USB TIME 

ERR/CRL "SR 

FRB VARPTR 

fXt LIST VDP 
KEY OB/OFF 
KEY ^n^ ," ^serle^ " 



DSO m PLUXO DE PROGBAIUS 



FOR -NEXT 

GOSUB 

GOTO 

IF THEN ELSE 



OK GOTO 

RETURN 

RESUKE 

ON GOSUB 



wimffma taamUmam \ 


ABS 


INT 


AND 


LOG 


ATM 


HOT 


BINS 


OCTS 


COS 


OR 


DEF FN 


RHD 


EQV 


5GH 


EXP 


SIK 


FIX 


SQR 


hex; 


TAH 


IMP 


XOB 



nao n ^nutDft i oiUnk 



BLOAD 

BSAVe 

CALL FORMAT 

CALL SYSTEM 

CLOAD 

CLOSE 

COPY 

CSAWE 

D3KF 

EOF 

FIELD 

FILES 

GET# 

IBIKEYS 

IHP 

INPUT 



INPUTS 

IHPUT* 

KILL 

LFILBS 

LIKE INPUT 

LINE INPUT # 

LIST 

LLIST 

LOAD 

LOP 

LPOS 

LPRINT 

LSET 

HAXFILES 

MERGE 

MOTOR ON/OPF 



NAME 

OPES 

OUT 

PAD 

PDL 

PRINT 

PRIHT* 

PRINT USING 

RtlH 

HSET 

SAVE 

STICK 

STRIG 

WAIT 



MMnmuicto OK nHduA 



POKE 
VPOKt 



PEEK 
VPEEK 



010 nULUSCT O ^eubrxcos 



I 



CIRCLE 

CLS 

COLOR 

DRAM 

LINE 

PAINT 



POINT 

PRESET 

PSET 

PUT SPRITE 

SCREEN 

SPRITES 



BEEP 
PLAY 



PLAY ( <n> 1 
SOUND 



USO Bt FKOGAMUCAO 



AUTO 

CLEAR 

CONT 

DATA 

DEF FN 

DELETE 

DIN 

END 

ERASE 

ERR/ERL 



LIST 

NEW 

READ 

REM 

RENUH 

RESTORE 

RUN 

STOP 

TROFF 

TROK 



nao u Hunraucio ■» vuiAvsis 



ASC 

CDBL 

CKRS 

CINT 

CSNC 

CVD 

CVI 

CVS 

DEFIOT 

DEPSHG 

OEFOBL 

DEFSTR 

DIM 



INSTR 

LEFTS 

LEN 

KIDS 

HXOS 

HKIS 

KKS 

RIGHTS 

SPACES 

6TRS 

STRINGS 

SWAP 

VAL 



Figara I 



para micros de 8 bits existente no mun- 
do. A ni'vel de mercado nacional, o 
MSX BASIC pode ser comparado com 
o BASIC do IBM-PC, pois este e uma 
mdquina de 16 bits. 

Na figura 1 , voce encontrari os 1 1 
grupos de fun^Oes e seus respectivos co- 
mandos do MSX BASIC. For questOes 
de espago, trataremos com alguma pro- 
fundidade aqueles comandos que julga- 
mos importantes em cada grupo. 

Vamos ao assunto. 

USO EM TEXTO 

SCREEN : Se rve para selecionar o 
tipo de tela. SCREEN ajusta a tela de 
texto para 40 caracteres por 24 linhas; 
SCREEN 1 ajusta a tela para 32 caracte- 
res por 24 linhas. 

FRINT USING: Usado paraimprimir 
series de caracteres ou niimeros em for- 
mates especiTicos. Existem formatos 
para series de caracteres e formatos para 
niimeros, que podem ser melhor visuali- 
zados na figura 2. 

PUT SPRITE: Este comando, que j^ 
foi explicado no artigo Comandos Grd- 
ficos no MSX (MS n 9 54), permite o 
uso de sprites em modo texto 1 (SCRE- 
EN 1). 

U' SCREENl.O 

20 SPRITE*(B)-CHR«I255) 

50 PRINT"MOREIRA b BURD" 

-»0 FORl-OTaiOOTPUrSPRlTEO, (I, 

9S',*'.B:NEi:T 

50 END 



SfMBOLO 


FUNCRO 




EXEMPLO 


-.Ay\/W" 


Ratorna dadoa numericos cow notagao em 


PRINT 


USING"*##* 




ponto flutuante. 


#yvA-^/^ '■;234.56 


"SS" 


Adiciona S antea de dados niunericos. 


PRINT 


USIHG"SS« 






#« 


":12.35 


■■ + '■ 


Coloca o sinal + ou - confortne oles ae^ 








lam positivoH, negativoa ou nuloB. 


PRINT 


USING"**** 






00 


":1.2S 


-_- 


Coloca o ainal - apoa niimeroa negati - 


PRINT 


USING" - 




vos. 




■';-1.25 


>. #> 


rormata a nunero de digltos apresenta- 


PRINT 


USING"*** 




doB de um dado numerico. 


## 


■■. 355.45 


<>■■'■ 


Preenche con asteriacoa oa eapa^os em 
branco de um dado numerico. 


PRIN. 


USING '•••";!. 2540 


.... 


Coloca uma virgula a cada tres digitoa 


PRINT 


USING' *#**, 




ft eaquerda do ponto deciinal. 


## 


'■;34B.23,29 




Retorna □ prlmeiro carater de uma ae- 


PRINT 


USING" 




rie de caracteres. 




■' ; AS 


"n esp" 


Retorna n*2 caracteres de utna serie de 
caracteres. 


PRINT 


USING" ■•;DS 


"i" 


Retorna todoa oa caracteres de uma se- 
rie. 


PRINT 


USING"t":CS 



Figura 2 

O programa anterior faz o seguinte: 
a linha 10 coloca o micro em modo tex- 
to 1 com sprites de 8x8 pontos; a linha 
20 define o sprite numero 8 como sen- 
do uma linha de 8 pontos(CHR$(255)); 
a linha 30 imprime o texto "MOREIRA 
& BURD"; a linha 40 movimenta o- 



sprite na horizontal da posi9So ate a 
posi^ao 100; e a linha 50 finaliza o pro- 
grama, permanecendo o micro em modo 
texto, porem, com o sprite fixo na 
tela (experimente pressionar ENTER 
varias vezes e veja o que ocorre com o 
sprite). 



m 



FAQA DO SEU COMPUTADOR UM GENIO 

O MELHOR SOFTWARE EM LIVROS PARA SEU COMPUTADOR 




APROFUNDANDO-SENOMSX Cz$ 125,00 

li.diiso5dmlhcsdoMSX(VDP. PPI. PSG. ETC) explica- 
do^ com dcienas dc progrunas c nccmplos. 



2 DOMINANDO O EXPERT CzS 102,00 

Dcnisc Sanioro Os pcimciios passoi na programa^o do 

Expert, micro do padrio MSX. 

3 INFORMATICA NA ESCOLA CzS 67.00 

Zuncrkorn c Foliran-Uvro didiiico as crian^u cscriio numa 
linguii^cm iimplcs c divcnida A comunicavilo ^ faciliuda 
pcb diilogo ram o Tekinha, simpitico roM ctiado cspcctal- 
mcnic pata csta obra. 

4 SUPER BASIC TK CzS 102,00 

Grossi c Moldonado - Transformc seu Micro num novo 
Computadoc. usando Basic compiljvcl. Voci podc claborat 
programas cm Basic que rodain. ap6s a compila^io. com a 
vclocidadc do Assembly 

5 ASSEMBLY 6502 CzS 97,00 

Bcrnhaid Wolfgang Schon - PrimeinM passos paia qucm 
qucr aprcnder a prograinar em linguagem de miquina num 
Apple il ou TK 2000. 
MuKos cxctckios rcsolvidos c cxcmplos. 



7 COLEgAO DE PROGRAMAS 

PARA MSX CzS 93,00| 

Rcnaio da Silva Olivcita ci al. - Uma seqiiencia dc progra* 
mas explicados cm ordcm trcsccnic dc dificuldadc paraj 
aprcnder a usar os rcrursos do padiio. 

8 LINGUAGEM BASIC MSX Cz$ 105,001 

Dctiisc Santoto - Uma cnciclopedia com [odos os comandos! 
c fun^oes do podcrojissimo Baste MSX. cxplicados dculha- 
diuncncc cm ordcm alfab^tica Obra complcta com virms c | 
Liicis apcndices, 

9 GULA DO PROGRAMADOR 

D.O.S. CzS 99,001 

Roberto Massanj Waonabe - Os scgrcdos dos diskettes do 
Apple deivendados de maneira simples c didStica. 
Como uiiliiar o DOS .VJ. 

lOGUlA DO PROGRAMADOR 

CP/M CzS 1 10,00 

Todos OS detalhcs do sisiema opctacional CP'M no Apple, 
induindo a listagem disascmblada e comentada 



TABELA DE MNEMONICOS 1 1 EXPLORANDO O TK 90 X CzS 90.00 

DO 6502 CzS 22,00 M Silvcira - Aprcndi lodos os principals (iruqucs) que o [ 

Bcrnhaid Wolfgang Schon - Indispcnsivel paia lonsuha ao manual nao coniou. digiiando programas de fitimo nivcl: 
sc programat cm Assembly 6W2 As Escadas c o Canelo. Ediiot de Caracicrcs, Arquivo. 

Disassembler. Etc. 



Desejo receber os livros correspondentes aos numeros a&sinalados 



Esiou enviando o cheque nominal cruzado a? . 
do Banco n.° CzS 



Nome: para ALEPH P.A.P. Ltda. 

Endereco- "^*- ^"8- Faria Lima, 1451 /#X Editora 

*'"'^^'*^ CEP 01451 -S. Paulo -SP / x I--I, 

Cidade: CEP.: Estado: Telefone: (Oil) 813.4555 [ '^f^pn^ 
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COMANDOS DO MSX 



MANIPULACAO DE MEMORIA 

VPEEK; Retoma o conteudo do byte 
de uma determinada posi^ao da memo- 
ria de vi'deo (VRAM). Cabe lembrar que 
OS MSX nacionais possuem 16 Kb de 
memoria exciusiva para video, a qual 
pode set inclusive utilizada para arma- 
zenar dados. Este comando e semelhan- 
te ao comando PEEK. 

VPOKE: Armazena um byte num 
dado enderefo da VRAM, sendo similar 
ao comando POKE. 

10 SCREENO 
20 F0RI=0TQ39 
■;0 VPOKE I. 63 
^0 NEXT 
50 END 

programa acima preenche a primei- 
ra linha da tela de texto com o carater 
A(c6digoASClI=65). 

TRATAMENTO DE INTERRUPC<*ES 

Este e um dos pontos altos do MSX 
BASIC, pois permite inclusive o uso de 
um rei6gio interne para interrup9§o 
por tempo. 

ON INTERVAL GOSUB. Determina 
que a cada intervalo de tempo (especifi- 
cado no comando), o fluxo do programa 
seja desviado para uma sub-rotina 
qual que r. 

10 SCREENO 

20 r=i 

30 QNINTERVAL.=Ei)0G05UB1000 

■10 INTERVALON '^ 

50 FLAV'C":C30Ta50 

1000 PRINTT;" BRgundoG" 

1010 T=T+t :eEEP 

1020 RETURN 

programa anterior Simula um cro- 
nometro. pois mostra na tela a passa- 
gem do tempo de segundo em segun- 
do. Na linha 30, determinamos que a 
sub-rotina da linha 1000 seja executada 
a cada segundo (60 pulsos do reldgio 
equivalem a um segundo); na linha 
40. ligamos esta modalidade de interrup- 
9^0; e na linha 1010, incrementamos a 
variavel T (tempo). 

ON KEY GOSUB: Detemiina que 
uma sub-rotina seja executada quando 
uma das dez teclas de fun^ao forpressio- 
nada. 

10 SCREENO 

20 OUIEYGOSUBIOOO, ,2000 

■J.O KF.y ( 1)0N:KEY<;.>0N 

40 PRINT". "; :GDTt)'10 

1000 CLS: PRINr"hICRQ" 

1010 RETURN 

2000 PR 1 14 r: PR I NT" 3I3TEHAS" 

JOlO RETURN 

Na linha 20 defmimos que ao ser 
pressionada a tecla Fl, deve ser execu- 
tada a sub-rotina da linha 1000 e que ao ser 
pressionada a tecla F3 deve ser executa- 
da a sub-rotina da linha 2000. A linha 
30 liga o sistema de interrup^ao das te- 



clas Fl e F3. Experimente. Ap6s o 
inicio da execu92o do programa, pressio- 
nar a tecla Fl e, em seguida, F3. 

ON SPRITE GOSUB: Determina que 
uma sub-rotina seja executada quando 
ocorrer uma colisao de sprites, ou seja, 
quando um ponto de um sprite tocar 
um ponto aceso de outro sprite. 

10 SCREEN 1.0 

20 SPRITE* (0) =CHR* ("255) +CHR*( 

255) 

70 DtiriPRITEGaSUBlOOO 

An SPRITF.DN 

tiO FijRI-^OTOlSO 

iO rU rSPRI TEO, ( I , I ) .7,0 

70 PUI'-iPRlTEl, (I,'?5).9,0 

60 NEXT 

^•.> iiorG5i:t 

1000 PR I NT "BUM", I 
I. .110 RK TURN 

Na linha 20 defmimos o sprite 
como uma barra; na linha 30 determina- 
mos que a sub-rotina da linha 1000 de- 
ve ser executada sempre que houver 
uma colisao de sprites; na linha 40 
ligamos o sistema de interrupgao por 
colisSo de sprites. 

Da linha 50 ate a 80 movimentamos 
o sprite em dois pianos distintos, em 
caminhos que se encontram. Na linha 
1000 imprimimos o BUM seguido do va- 
lor de I (coordenada horizontal da co- 
lis3o). 

FUNq:OES MATEMATICAS 

OCT$: Converte um numero deci- 
mal em uma serie de caracteres que re- 
presentam o valor octal deste numero 
(base 8). 

10 INPUT"DIGITE UM NUMERO";N 
20 PR1NT0CT*(N) 
30 GOTO 10 

O programa anterior recebe um nu- 
mero decimal (linha 10) e imprime o 
seu equivalente octal (Unha 20). 

HEX S : Semelhante k fun9ao anterior, 
retornando, por^m, o seu equivalente 
na representa9ao hexadecimal (;base 16). 

10 INPUT"DIGITE UM NUMERO" ;N 
20 PR1NTHEX»(N> 
JO GOTUIO 

BINS: SimDar ^s fun95es anteriores, 
retornando, por^m, o numero na sua 
representa93o bin^ia (base 2). 

10 F0RI=0T0255 

20 PRINTI.BIN«(I) 

30 NEXT 

40 END 

O programa anterior imprime os mi- 
meros de ale 255 com sua respectiva 
representa^ao biniria. 

USO EM PROGRAMACAO 

Os MSX trazem todos os comandos 



existentes nos micros mais avan9ados, 
tais como AUTO, RENUM. CLEAR 
etc. Falaremos, a seguir, dos comandos 
ERR e ERL que auxiliam na corre9ao 
e manipula9ao de erros, inclusive do 
proprio usu^rio. 

ERR: Retoma o codigo do erro. 

ERL: Retoma o numero da linha 
onde ocorreu o erro. 



10 0NERR0R6DTO1O00 

20 INPUT"DIGITE UM NUMERO";N 

:^.0 PRiNT"iO/";Ni " = "; 

40 PRINTIO/N 

50 GOTO 20 

1000 PRINT"CODIGO DE ERRO";ER 

R 

1010 PR1NT"NA LINHA";ERL 

1020 RESUME20 



O programa anterior imprime o resul- 
tado da divisSo de 10 pelo numero que 
voce digitou. Caso ocorra um erro (vo- 
ce digitou ou uma letra), 6 executada 
a sub-rotina da linha 1000, indicando 
quai o erro e em que linha ele oconeu. 

USO EM SOM 

A gera9ao de som e efeitos sonoros 
^ mais um ponto forte do MSX, veja 
por que: 

PLAY: Este comando permite execu- 
tar musicas segundo uma macrolingua- 
gem musical. Nesta macrolinguagem 6 
possivel tocar oito oitavas, modificar o 
tempo de execu9ao de uma miisica, uti- 
lizar at^ dez formatos de ondas sonoras 
diferentes etc. 

£ importante lembrar que os MSX 
contam com tres canais de som inde- 
pendentes (o que permite a gera9ao de 
sons e musicas extremamente comple- 
xes) e que o integrado gerador de som 
pode executar uma tarefa musical in- 
dependentemente da UCP. isto e, o 
niicro pode tocar uma miisica enquanto 
a UCP executa opera96es diversas. 

10 PLAY"S1M3000" 

20 PLAY"CDEFG", "DEFGA" , "OtEFG 

AB" 

30 GQT020 



Na Unha 10 o canal de som e ajusta- 
do para emitir um formato de onda 
especial; na linha 20 execuia-se a musi- 
ca "CDEFG" neste mesmo canal A com 
som de piano, "DEFGA" no canal B 
com som de orgSo e "06EFGAB" no 
canal C com som de orgSo na sexta 
oitava. 

SOUND: Usado para manipular os re- 
gistradores do integrado de som. tam- 
bem chamado de PSG (Programmable 
Sound Generator). Estes registradores 
controlam itens como volume, mixagem 
de rui'do, formas de ondas sonoras etc. 



10 S0UND4, 23: SOUNDS, 0:S0UND6, 

20 

20 SOUND7,3:SaUND'?,2:snUND10, 

16 

30 SOUND 1 1 , 99 : SOUND 12,2: SOUND 

13,12 

40 PR INT "MICRO SISTEMAS" : GOTO 

40 

No programa anterior temos um 
exemplo do poder sonoro dos MSX, 
gerando o som de um helicoptero. Na 
linha 40 temos a impressao conti'nua da 
mensagem MICRO SISTEMAS enquan- 
to e emitido o som. 

USO EM ENTRADA E SAIDA 

Neste segmento, inclui'mos, todos os 
comandos do sistema operacional MSX 
DOS e OS comandos do MSX BASIC. 
Trataremos apenas deste ultimo, deixan- 
do OS comandos do MSX DOS para um 
prdximo artigo. 

LINE INPUT: Associa os caracteres 
digitados a uma variavel alfanumerica, 
aceitando o delimitador virgula (,) como 
um carater qualquer (acabou a velha 
dor-de-cabe9a). 

STICK: Retorna um valor numerico 
conforme o estado do controlador de 
jogo (joystick) ou teclas de controle do 
cursor (as teclas que ficam a direita do 
teclado). lo m^stick(O) 

20 PRINTM 
30 GOTO 10 



Na linha 10 6 lido o estado das teclas 
de controle do cursor e na 20 e impresso 
valor deste estado. Experimente 
pressionar duas dessas teclas ao mesmo 
tempo. 

STRIG: Retoma o estado dos botOes 
de disparo do controlador de jogo ou 
da barra de espa90. Se um destes elemen- 
tos for pressionado, retorna o valor - 1 , 
em caso contrario, serd retomado o va- 
lor zero. 

10 M=nTRIG<0) 
20 PRINTM 
30 GOTO 10 



Na linha 10 e lido o estado da barra 
de espa90 (ou do botao de disparo do 
controlador); a linha 20 imprime o 
valor do estado. Experimente pressio- 
nar a barra de espa90 e conftra. 

USO EM FLUXO DE PROG RAM AS 

IF THEN ELSE: Este e o comando 
IF THEN, comum a todo BASIC, rela- 
cionado ainda com o ELSE (senSo), que 
e realizado quando a compara9ao do 
IF resulta em falso. 

RESUME: Continua a execu9ao de 
um programa BASIC apos uma rotina 
de erro ter sido executada. Possui tres 
modalidades: RESUME, onde o progra- 
ma continua na instru9ao que causou o 



erro; RESUME NEXT, onde o progra- 
ma continua na instru9ao imediatamen- 
te ap6s o erro; e RESUME numero da 
linha. onde o programa continua na li- 
nha de numero indicado. 

USO NA manipula(;ao DE 

VARIAVEIS 

INSTR: Busca a primeira ocorrencia 
de um ou mais caracteres dentro de ou- 
tra s^rie de caracteres. imprimindo os 
caracteres iniciais desta ocorrencia. 



10 A«="0 RATO ROEU" 

20 PRINTA* 

30 INPUT"DIGITE UMA LETRA OU 

PALAVRA";N* 

40 FRINTINSTR(A*,N») 

50 GOTO to 



Na linha 40 descobre-se o local da 
ocorrencia da serie de caracteres de NS 
na frase RATO ROEU que esta em 
A$. Para experimentar e compreender, 
digite estes exemplos: 0, TO, ROEU. 

SWAP: Troca o conteudo de duas 
variaveis entre si. 

10 A=5 

20 B=6 

30 SWAPA,B 

40 PRINTA.B 

50 END 
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COMANDOS DO MSX 



Manipulando arquivos em cassete 



Nosso prop6sito. neste topico final, e 
fazer urn breve relato dos comandos Jispo- 
niveis para a manipulando de arquivos em ft- 
ta cassele. Em seguida, daremos um exem- 
plo simples de um programa para dem oust rar 
tdguns dos comartdos. 

BSA VE E BLOAD: Armazena e le da 
fila um arquivo bindrio. Esle arquivo pode 
conter dados de memdria, uma tela grdfi- 
ca, programas em linguagem de mdquina 
etc. 

BLOAD -TESTE" Carrega o arquivo 
TESTE na memdria. 

CSA VE E CLOAD: Armazena e le arqui- 
vos BASIC exclusivamente em fita. 

CSAVE -TESTE" 

OPEN E CLOSE: Acessam um di^osiii- 
vo como um arquivo de entrada ou saida. 
O dispositivo pode ser: gravador, impresso- 
ra, tela de texto, etc. CLOSE fechaodispo- 
sitivo. 

OPEN •CASr FOR OUTPUT AS * 3. 
abre o gravador cassete como arquivo de 
saida com ntimerv de referenda' 3. Para se 
escrever um dado no gravador, usa-se. por 
exemplo. PRINT # 3. Teslando. . -" 

Exempio: OPEN '-CAS." FOR INPUT 
AS # 2. abre o gravador cassete como arqui- 
vo de entrada com numero de referenda 2. 
Para se ler do gravador, usa-x. por exempio: 
INPUT # 2XS 

O programa, a seguir. ^ um exempio sim- 
ples de uma agenda telefonica de dez 
names: 

K' burO3O0 

;;(.' CLS:F0RI=OT09:rRlNTt(-- "I 
: INPur"r.c.ino= '■tKD»( I) : INPUT-t 
•lefone^ "i rE«(H : IFTE»0)''>" 
F"ORTfc« ( i 1 ■; '-f "TME^»^E?:T: RETUR 
|i4EL3EREruRN 

JO CLS:PRINT"prBasione REC « 
PLftY no gra/»dor":PRINT"e ENT 
ER no micrQ":eOSUB2yu 
10 DPEN"Cfl6;"F0RCKJrKJTft51ll.PR 
INTl.I 

50 CLS;PRlNT-arav*iido.. ." 
bO F0RK»OTai:PfiINT»l,N0»<k:J:P 
RINTl.TE«<Kl:NEXT:a.OGE:RCTUR 
N 

70 REM 

SO Cl-S:FRINT"posictone a tit* 
B tect* PLAVjPftlNftecle EN 
TER no mi era ■■:60SUB2O0 
90 CLS:PH?mflendo dados...": 
tJPEN"U*S:"n3RlNPUTflSlll: INPtJTt 

1. 1 



lOO FDBK=010I-i:lNPUTK) ,NO**K 

). re« (K I : NEXT : CLOSE: RETURN 

tlO CLB:FORK-0TOI-IJPftINTND»( 

n .TH«<H:N€;«T 

120 PRlin-'tur.lo ENTER para =u 

n 1 1 nii*r " : G0SUB200: RETURN 

200 IFINJ.EV«OCHR»(13)TMEN^OO 

ELBEREIURN 

T'jO CLij:P(»INT"rior*ir« t> Bi»rd" 

: PRINT" 1-novofi dados '; PRINT " I 

-^ravo d«do»":PRINT"3-Iw d«da 

«":pRinT"4-i.ista dadoS":PRINT 

"5 FIM" 

;it> ft«*INKEV»: IFfl»-""THEN3IOE 

LSeONVftL m»J 005UB20. 30, 70, 1 10 

rsc eoTosoo 

40O Cl.S:PRIN1''«dBus. . ■ " 
A|o END 

Alt utilizar esta agenda, pela primetre 
vez. voce deve selecionar a op^do I e incluir 
OS names conforme o programa pede. Mais 
larde, quando voce desejar allerar um nome 
da lista (por exempio, o quinio nome) , sele- 
done a opfdo I. pressione ENTER ati 
surgir '5-nome=' e entdo escreva o novo no- 
me (o mesmo 4 vdlklo para lelefone). A 
fun^do das outras opfoes e: 5 = encerrar o 
programa: 4 = iistar os dados correnles; 
3 = ler OS dados da fita, e 2 = armazenar os 
dados atuais em fila. Note que 4 possivel 
ler vdrios arquivos, coda qual com um con- 
junto de nomes diferentes. Os programado- 
res experientes podem alterar o programa 
para aceitar uma quanlidade maior de da- 
dos. 

Nossa observa^do final sobre esta mate- 
ria i de que ela represenla apenas uma pe- 
quena amostra do MSX BA^IC. pois seria 
impossivel descrever todos os comandos em 
um itnico artigo. Um aspecto observado por 
nos foi o de que em nenhum livro ou ma- 
nual constam todos os comandos do MSX 
BASIC, fttto esle que nos levou a escrever 
um guia de referenda compleio do MSX, 
que esld em edigdo pela MacGraw-Hill do 
Dt3sa 

Terminamos com uma observafdo peS' 
soal: denlro do mercaJo de micros de 8 
bits, o MSX 6, sem duvida. o melhor compu- 
lador que jd uliltzamos. quer seja pelas faci- 
lidades que apresenta em programagdo. 
quer pela total padronizofdo de seus perifi- 
ricos. 



Na linha 30 os conteudos de A e B 
s3o permutados, resultando na Impres- 
sao dos numeros 6 e 5. 

OUTROS COMANDOS 

TIME: E uma variavel reservada do 
sistema. Esta variavel conta o tempo, 
sendo automaticamente incrementada a 
cada 1/60 segundo. 



10 TIME=0 

20 K0IVI=0T0999:NEXT 

;0 PRINT-eSTE 'FOR' DEMOROU") 

T [IIE/60i " seguiidos" 

•\0 END 



Na linha 10 colocamos como valor 
inicial em TIME ; na linha 20 e execulado 
um FOR para deixar o tempo correr; e 
na linha 30 sSo impresses quantos se- 
gundos demorou o MSX BASIC na 
execufjSo do programa. Se voce, depois 
disso, escrever PRINT TIME a qualquer 



memento, voce verificara que o valor 
de TIME sempre aumenta (pois o tempo 
passa). 

VARPTR: Descobre o enderego na 
memoria do MSX em que uma determi- 
nada variavel ou matriz em BASIC esta. 
Uma vez determinado este endere90, 
voce pode pa&sd-io para um programa 
em linguagem de maquina (por exem- 
pio) que podera ler o conteudo da varia- 
vel ou elemento da matriz. Este coman- 
do e muito litil para programadores 
experientes que trabalham com lingua- 
gem de maquina. 



Oscar Julio Burd e Luiz Sergio Y Moreira. 
ambos formados em Fi'sica pela USP. sao di- 
retores da lnform4tica. Educa^ao e Servicos. 
empresa especialUada na produ^ao de sof- 
tware educacional e assessoria a col^gios Ela 
desenvolve airtda programas que exploram os 
recursos sonoros do MSX, como o programa 
TOQUE. 
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Idcais para endcreQamentos, Identifica^oes e rotufasens, podendo 

itr utiljzadas em impressords de 132 ou SO ds. que tenham tratores 

reguldveis, m^quinasde escrever e processadores de texto. 

Voce en contra as etiquetas REDIFOR^^ em erribaiasens econdrriKas, 

coniendo a qiiarnidade adequada a sua necessidade; 600. 900, 

1200. 1800,3600, emquatroformatos. 




fOftMULARhOS CONHhUOS 



Servem para cqnfecQ^odc cartas, memoraridos. avisos, reiat6Hose 

outras corresporid^nciase podem ser utilizadqs em impressoras de 

1 32 ou 80 ds. q ue le n ham tratores rcgu I aveis, maq u I n a s de e 5c reve r e 

processadores de tcxtos. 

Voce encontra embalagens com 250 e 800 JoJhas e 300p3Os de 2 vlos^ 

emdojsformalos. 



FKHAS EM FORMULA RIO CON TIN I 



AplJca^des em controlc de estoques, jdentif ica(;3o de produtos, 

arquivos, etc.rpodendoser Jtillzadasem impressoras de l32ou 

BO c)5. que tenham tratores rcgut^veia, maquinas de escrever e 

processadorcs de texto. 
Estas fichas possuem aita durabilidade. pois sao feltas em papel 

Cartao Branco de 1B0 grs/m'. 
Voce encontra as ^chas REDiFORMem embalasensde S50 unidades, 

cm do is formatos. 



A Linha Pessoal de fnform^tica REDIFORM voc^ encontra nos 
pfinc tpa ts Magazines e iLOJa s Espec lai izadas. 




FORNECEDOR TOTAL 
PARA INFORMATICA 



Para mafores Jnfqrimat^oes, Irgue: 

[>a Grande Sao PauLo: B72-3316-Deoutfos locals: (011) 800-3316 

(i^ pagamos sen Interurbano) 
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AMicrodigrtal 

lani;:a no Brasil 

micro pessoal 

demaiorsucesso 

no munda • 



A panir de agora a hisiona dos 
micros pessoais vai ser coniada em duas 
partes: antes e depois do TK 9DX. 

TK 9DX e, simplesmente, o unrco 
micro pessoal iancado no Brasil qye 
merece a classificacao de "software 
rrtachlne"; urn caso raro de micro que 
pela sua facihdade de uso, grandes 



recursos e preco acessivel recebeu a 
atancao dos cnadores de programas e 
penlercos em todo o mundo. 

Para voc§ ler uma ideia, exisiem 
mais de 2 mil programas. 70 
livros, 30 perit^ricos e inumeraj 




revistas da usuanos dispcniveis para ele 

iniernacianalmenie, 

E aqui o TK 90X |^ sai com mais de 
100 programas, enquanio ouiros esiao 
am fase linat de desenvolvimemo para 
Ihe dar mais opcoes para irabalhar 
a p render du se divenir que com qualquer 
DLJiro micro. 

TK 9DX lem duas versoes de 
memona Ide 16 ou 49 K|. imagem da 
alia resolucao grafica com B cor^s, 
carregamento rapido de programas 
Icpniralavel pelo proprio monitorl som 
pela TV, leiras maiusculas e minusculas 
e ainda uma e^iclusividade: acemuacao 
em pDnugu§s. 

Faca seu programa: peca ja uma 
demonstracao do novo TK 90X. 

A1ICRODIGIML 



Chegou micro 
cheio de programas. 
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